From c4a35c0e141a4bb05ba508914bebdc2884109e76 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Fri, 14 Sep 2018 11:38:43 +0200 Subject: Exclude more example code from CRAN checks to avoid NOTES about long execution times. Static documentation rebuilt by pkgdown with run_dont_run = TRUE --- docs/reference/mkinmod.html | 35 ++++++++++++++++++++++++++--------- 1 file changed, 26 insertions(+), 9 deletions(-) (limited to 'docs/reference/mkinmod.html') diff --git a/docs/reference/mkinmod.html b/docs/reference/mkinmod.html index a0eade3b..857e0c74 100644 --- a/docs/reference/mkinmod.html +++ b/docs/reference/mkinmod.html @@ -66,7 +66,7 @@ For the definition of model types and their parameters, the equations given mkin - 0.9.47.3 + 0.9.47.4 @@ -221,17 +221,35 @@ For the definition of model types and their parameters, the equations given SFO_SFO <- mkinmod( parent = mkinsub("SFO", "m1"), m1 = mkinsub("SFO"))
#> Successfully compiled differential equation model from auto-generated C code.
-
# NOT RUN { -# The above model used to be specified like this, before the advent of mkinsub() +
# The above model used to be specified like this, before the advent of mkinsub() SFO_SFO <- mkinmod( parent = list(type = "SFO", to = "m1"), - m1 = list(type = "SFO")) - + m1 = list(type = "SFO"))
#> Successfully compiled differential equation model from auto-generated C code.
# Show details of creating the C function SFO_SFO <- mkinmod( parent = mkinsub("SFO", "m1"), - m1 = mkinsub("SFO"), verbose = TRUE) - + m1 = mkinsub("SFO"), verbose = TRUE)
#> Compilation argument: +#> /usr/lib/R/bin/R CMD SHLIB file3c104e6e45e4.c 2> file3c104e6e45e4.c.err.txt +#> Program source: +#> 1: #include <R.h> +#> 2: +#> 3: +#> 4: static double parms [3]; +#> 5: #define k_parent_sink parms[0] +#> 6: #define k_parent_m1 parms[1] +#> 7: #define k_m1_sink parms[2] +#> 8: +#> 9: void initpar(void (* odeparms)(int *, double *)) { +#> 10: int N = 3; +#> 11: odeparms(&N, parms); +#> 12: } +#> 13: +#> 14: +#> 15: void func ( int * n, double * t, double * y, double * f, double * rpar, int * ipar ) { +#> 16: +#> 17: f[0] = - k_parent_sink * y[0] - k_parent_m1 * y[0]; +#> 18: f[1] = + k_parent_m1 * y[0] - k_m1_sink * y[1]; +#> 19: }
#> Successfully compiled differential equation model from auto-generated C code.
# If we have several parallel metabolites # (compare tests/testthat/test_synthetic_data_for_UBA_2014.R) m_synth_DFOP_par <- mkinmod(parent = mkinsub("DFOP", c("M1", "M2")), @@ -241,8 +259,7 @@ For the definition of model types and their parameters, the equations given fit_DFOP_par_c <- mkinfit(m_synth_DFOP_par, synthetic_data_for_UBA_2014[[12]]$data, - quiet = TRUE) -# } + quiet = TRUE)