diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2015-11-09 10:16:17 +0100 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2015-11-09 10:16:17 +0100 |
commit | 97b4b0a109d55080c781d9bbecec59b56f7037b5 (patch) | |
tree | 691ea78fe86cf59f0eeabaadf9e205a97c505dcc /inst/web/mkinmod.html | |
parent | e8b63d52bb68dc37d3e6c933021e29b7ea7d7a23 (diff) |
Update staticdocsv0.9-41
Diffstat (limited to 'inst/web/mkinmod.html')
-rw-r--r-- | inst/web/mkinmod.html | 61 |
1 files changed, 17 insertions, 44 deletions
diff --git a/inst/web/mkinmod.html b/inst/web/mkinmod.html index 797e96d5..7b43beb7 100644 --- a/inst/web/mkinmod.html +++ b/inst/web/mkinmod.html @@ -170,51 +170,24 @@ SFO_SFO <- mkinmod( </div> <strong class='message'>Successfully compiled differential equation model from auto-generated C code.</strong> <div class='input'> -# 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")) -</div> -<strong class='message'>Successfully compiled differential equation model from auto-generated C code.</strong> -<div class='input'> -# Show details of creating the C function -SFO_SFO <- mkinmod( - parent = mkinsub("SFO", "m1"), - m1 = mkinsub("SFO"), verbose = TRUE) -</div> -<div class='output'>Compilation argument: - /usr/lib/R/bin/R CMD SHLIB file16d352645eb9.c 2> file16d352645eb9.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: } -</div> -<strong class='message'>Successfully compiled differential equation model from auto-generated C code.</strong> -<div class='input'> -# 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")), - M1 = mkinsub("SFO"), - M2 = mkinsub("SFO"), - use_of_ff = "max", quiet = TRUE) - ## Not run: +# # 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")) +# +# # Show details of creating the C function +# SFO_SFO <- mkinmod( +# parent = mkinsub("SFO", "m1"), +# m1 = mkinsub("SFO"), verbose = TRUE) +# +# # 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")), +# M1 = mkinsub("SFO"), +# M2 = mkinsub("SFO"), +# use_of_ff = "max", quiet = TRUE) +# # fit_DFOP_par_c <- mkinfit(m_synth_DFOP_par, # synthetic_data_for_UBA_2014[[12]]$data, # quiet = TRUE) |