aboutsummaryrefslogtreecommitdiff
path: root/man
diff options
context:
space:
mode:
Diffstat (limited to 'man')
-rw-r--r--man/create_deg_func.Rd2
-rw-r--r--man/nlme.mmkin.Rd7
-rw-r--r--man/summary.nlme.mmkin.Rd2
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{

Contact - Imprint