diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-02-08 17:17:29 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-02-08 17:17:29 +0100 |
| commit | 0fa8a770812775d697717ad723f7f61fb04b7fef (patch) | |
| tree | 17473ddf787541745d47dab063bc643ec59a9557 /R/mixed.mmkin.R | |
| parent | d081384ddcb75a9f92fad33e4e3f6d6796f98e67 (diff) | |
| parent | c0638c84568d475b3b059e2c6e593e6f03b846bc (diff) | |
Merge branch 'nlmixr'
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) |