From f6f8ca5142020c2c5b0628bdcae1e2d00b80c6d5 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 8 May 2020 09:00:20 +0200 Subject: Roxygenize, adapt tests --- man/create_deg_func.Rd | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'man/create_deg_func.Rd') 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) +} } -- cgit v1.2.1