diff options
Diffstat (limited to 'R/saemix.R')
| -rw-r--r-- | R/saemix.R | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -44,6 +44,10 @@ #' # functions from saemix #' library(saemix) #' compare.saemix(list(f_saem_sfo$so, f_saem_fomc$so, f_saem_dfop$so)) +#' plot(f_saem_fomc$so, plot.type = "convergence") +#' plot(f_saem_fomc$so, plot.type = "individual.fit") +#' plot(f_saem_fomc$so, plot.type = "npde") +#' plot(f_saem_fomc$so, plot.type = "vpc") #' #' f_mmkin_parent_tc <- update(f_mmkin_parent, error_model = "tc") #' f_saem_fomc_tc <- saem(f_mmkin_parent_tc["FOMC", ]) @@ -64,11 +68,12 @@ #' # analytical solutions written for saemix. When using the analytical #' # solutions written for mkin this took around four minutes #' f_saem_sfo_sfo <- saem(f_mmkin["SFO-SFO", ]) -#' f_saem_dfop_sfo <- saem(f_mmkin["SFO-SFO", ]) +#' f_saem_dfop_sfo <- saem(f_mmkin["DFOP-SFO", ]) +#' summary(f_saem_dfop_sfo, data = FALSE) #' #' # Using a single core, the following takes about 6 minutes, using 10 cores #' # it is slower instead of faster -#' f_saem_fomc <- saem(f_mmkin["FOMC-SFO", ], cores = 1) +#' #f_saem_fomc <- saem(f_mmkin["FOMC-SFO", ], cores = 1) #' } #' @export saem <- function(object, control, ...) UseMethod("saem") |