diff options
Diffstat (limited to 'man')
| -rw-r--r-- | man/create_deg_func.Rd | 2 | ||||
| -rw-r--r-- | man/nlme.mmkin.Rd | 7 | ||||
| -rw-r--r-- | man/summary.nlme.mmkin.Rd | 2 |
3 files changed, 6 insertions, 5 deletions
diff --git a/man/create_deg_func.Rd b/man/create_deg_func.Rd index 69058038..7b419342 100644 --- a/man/create_deg_func.Rd +++ b/man/create_deg_func.Rd @@ -24,8 +24,8 @@ SFO_SFO <- mkinmod( m1 = mkinsub("SFO")) FOCUS_D <- subset(FOCUS_2006_D, value != 0) # to avoid warnings fit_1 <- mkinfit(SFO_SFO, FOCUS_D, solution_type = "analytical", quiet = TRUE) -fit_2 <- mkinfit(SFO_SFO, FOCUS_D, solution_type = "deSolve", quiet = TRUE) \dontrun{ +fit_2 <- mkinfit(SFO_SFO, FOCUS_D, solution_type = "deSolve", quiet = TRUE) if (require(rbenchmark)) benchmark( analytical = mkinfit(SFO_SFO, FOCUS_D, solution_type = "analytical", quiet = TRUE), diff --git a/man/nlme.mmkin.Rd b/man/nlme.mmkin.Rd index ed58d603..ed19c0d3 100644 --- a/man/nlme.mmkin.Rd +++ b/man/nlme.mmkin.Rd @@ -92,12 +92,11 @@ methods that will automatically work on 'nlme.mmkin' objects, such as \examples{ ds <- lapply(experimental_data_for_UBA_2019[6:10], function(x) subset(x$data[c("name", "time", "value")], name == "parent")) -f <- mmkin(c("SFO", "DFOP"), ds, quiet = TRUE, cores = 1) -library(nlme) -f_nlme_sfo <- nlme(f["SFO", ]) \dontrun{ - + f <- mmkin(c("SFO", "DFOP"), ds, quiet = TRUE, cores = 1) + library(nlme) + f_nlme_sfo <- nlme(f["SFO", ]) f_nlme_dfop <- nlme(f["DFOP", ]) anova(f_nlme_sfo, f_nlme_dfop) print(f_nlme_dfop) diff --git a/man/summary.nlme.mmkin.Rd b/man/summary.nlme.mmkin.Rd index d7e61074..425df096 100644 --- a/man/summary.nlme.mmkin.Rd +++ b/man/summary.nlme.mmkin.Rd @@ -87,11 +87,13 @@ ds_sfo_syn <- lapply(ds_sfo_mean, function(ds) { n = 1)[[1]] }) +\dontrun{ # Evaluate using mmkin and nlme library(nlme) f_mmkin <- mmkin("SFO", ds_sfo_syn, quiet = TRUE, error_model = "tc", cores = 1) f_nlme <- nlme(f_mmkin) summary(f_nlme, data = TRUE) +} } \author{ |