diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2021-03-19 11:22:07 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2021-03-19 11:22:07 +0100 |
| commit | 6d6dc7d53bf99b088af3488588574afc832fb7fe (patch) | |
| tree | 6dff11a3e87e9e9f5e8cefbd0009acef91a8eb96 /R/mixed.mmkin.R | |
| parent | cb112e53163f9dc63d439dba50ca051877d67a79 (diff) | |
test_log_parms for plot.mixed.mmkin, roxygen run
Diffstat (limited to 'R/mixed.mmkin.R')
| -rw-r--r-- | R/mixed.mmkin.R | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/R/mixed.mmkin.R b/R/mixed.mmkin.R index 7aa5edd5..682a9a34 100644 --- a/R/mixed.mmkin.R +++ b/R/mixed.mmkin.R @@ -3,6 +3,8 @@ #' @param object An [mmkin] row object #' @param method The method to be used #' @param \dots Currently not used +#' @return An object of class 'mixed.mmkin' which has the observed data in a +#' single dataframe which is convenient for plotting #' @examples #' sampling_times = c(0, 1, 3, 7, 14, 28, 60, 90, 120) #' n_biphasic <- 8 @@ -54,7 +56,6 @@ mixed.mmkin <- function(object, method = c("none"), ...) { if (nrow(object) > 1) stop("Only row objects allowed") method <- match.arg(method) - if (method == "default") method = c("naive", "nlme") ds_names <- colnames(object) res <- list(mmkin = object, mkinmod = object[[1]]$mkinmod) |