From 9d6a975a0e3850a36889a18b5d9929d27b901ab3 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 4 Mar 2019 14:09:45 +0100 Subject: Make some example output more reproducible In order to avoid some unnecessary documentation rebuilds --- man/transform_odeparms.Rd | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) (limited to 'man/transform_odeparms.Rd') diff --git a/man/transform_odeparms.Rd b/man/transform_odeparms.Rd index a1ccdf26..006897d6 100644 --- a/man/transform_odeparms.Rd +++ b/man/transform_odeparms.Rd @@ -66,11 +66,17 @@ SFO_SFO <- mkinmod( m1 = list(type = "SFO")) # Fit the model to the FOCUS example dataset D using defaults fit <- mkinfit(SFO_SFO, FOCUS_2006_D, quiet = TRUE) -summary(fit, data=FALSE) # See transformed and backtransformed parameters +fit.s <- summary(fit) +# Transformed and backtransformed parameters +print(fit.s$par, 3) +print(fit.s$bpar, 3) \dontrun{ +# Compare to the version without transforming rate parameters fit.2 <- mkinfit(SFO_SFO, FOCUS_2006_D, transform_rates = FALSE, quiet = TRUE) -summary(fit.2, data=FALSE) +fit.2.s <- summary(fit.2) +print(fit.2.s$par, 3) +print(fit.2.s$bpar, 3) } initials <- fit$start$value @@ -88,7 +94,9 @@ SFO_SFO.ff <- mkinmod( use_of_ff = "max") fit.ff <- mkinfit(SFO_SFO.ff, FOCUS_2006_D, quiet = TRUE) -summary(fit.ff, data = FALSE) +fit.ff.s <- summary(fit.ff) +print(fit.ff.s$par, 3) +print(fit.ff.s$bpar, 3) initials <- c("f_parent_to_m1" = 0.5) transformed <- transform_odeparms(initials, SFO_SFO.ff) backtransform_odeparms(transformed, SFO_SFO.ff) @@ -101,7 +109,9 @@ SFO_SFO.ff.2 <- mkinmod( fit.ff.2 <- mkinfit(SFO_SFO.ff.2, FOCUS_2006_D, quiet = TRUE) -summary(fit.ff.2, data = FALSE) +fit.ff.2.s <- summary(fit.ff.2) +print(fit.ff.2.s$par, 3) +print(fit.ff.2.s$bpar, 3) } } \keyword{ manip } -- cgit v1.2.1