aboutsummaryrefslogtreecommitdiff
path: root/man/create_deg_func.Rd
diff options
context:
space:
mode:
Diffstat (limited to 'man/create_deg_func.Rd')
-rw-r--r--man/create_deg_func.Rd11
1 files changed, 10 insertions, 1 deletions
diff --git a/man/create_deg_func.Rd b/man/create_deg_func.Rd
index 2eefdb80..178661ff 100644
--- a/man/create_deg_func.Rd
+++ b/man/create_deg_func.Rd
@@ -22,5 +22,14 @@ Create degradation functions for known analytical solutions
SFO_SFO <- mkinmod(
parent = mkinsub("SFO", "m1"),
m1 = mkinsub("SFO"))
-fit <- mkinfit(SFO_SFO, FOCUS_2006_D, quiet = TRUE)
+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{
+if (require(rbenchmark))
+ benchmark(
+ analytical = mkinfit(SFO_SFO, FOCUS_D, solution_type = "analytical", quiet = TRUE),
+ deSolve = mkinfit(SFO_SFO, FOCUS_D, solution_type = "deSolve", quiet = TRUE),
+ replications = 1)
+}
}

Contact - Imprint