From 524a8bba89b95840b4e9215c403947a8bb76d7b2 Mon Sep 17 00:00:00 2001
From: Johannes Ranke
-SFO <- mkinmod(degradinol = mkinsub("SFO")) +SFO <- mkinmod(degradinol = mkinsub("SFO")) # Compare solution types mkinpredict(SFO, c(k_degradinol = 0.3), c(degradinol = 100), 0:20, solution_type = "analytical") @@ -388,7 +388,7 @@ as these always return mapped output. # Comparison of the performance of solution types SFO_SFO = mkinmod(parent = list(type = "SFO", to = "m1"), m1 = list(type = "SFO"), use_of_ff = "max") -#>#>if(require(rbenchmark)) { benchmark(replications = 10, order = "relative", columns = c("test", "relative", "elapsed"), eigen = mkinpredict(SFO_SFO, c(k_parent = 0.15, f_parent_to_m1 = 0.5, k_m1 = 0.01), @@ -408,10 +408,10 @@ as these always return mapped output. solution_type = "analytical", use_compiled = FALSE)[201,]) }#> test relative elapsed -#> 2 deSolve_compiled 1.0 0.005 #> 4 analytical 1.0 0.005 +#> 2 deSolve_compiled 1.2 0.006 #> 1 eigen 4.0 0.020 -#> 3 deSolve 44.6 0.223+#> 3 deSolve 44.2 0.221# \dontrun{ # Predict from a fitted model f <- mkinfit(SFO_SFO, FOCUS_2006_C, quiet = TRUE) -- cgit v1.2.1