From f158185b8a7970c22b1feb04f96aa5a23047dd3d Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 16 Dec 2020 19:26:08 +0100 Subject: And add the second candidate model --- R/D24_2014.R | 4 ++++ docs/dev/pkgdown.yml | 2 +- docs/dev/reference/D24_2014.html | 21 +++++++++++++++++++++ man/D24_2014.Rd | 4 ++++ 4 files changed, 30 insertions(+), 1 deletion(-) diff --git a/R/D24_2014.R b/R/D24_2014.R index 0175a7f3..0a111e1c 100644 --- a/R/D24_2014.R +++ b/R/D24_2014.R @@ -28,4 +28,8 @@ #' DCP = mkinsub("SFO", to = "DCA"), #' DCA = mkinsub("SFO")) #' print(m_D24) +#' m_D24_2 = mkinmod(D24 = mkinsub("DFOP", to = "DCP"), +#' DCP = mkinsub("SFO", to = "DCA"), +#' DCA = mkinsub("SFO")) +#' print(m_D24_2) "D24_2014" diff --git a/docs/dev/pkgdown.yml b/docs/dev/pkgdown.yml index afb417f7..4dd05c5b 100644 --- a/docs/dev/pkgdown.yml +++ b/docs/dev/pkgdown.yml @@ -10,7 +10,7 @@ articles: web_only/NAFTA_examples: NAFTA_examples.html web_only/benchmarks: benchmarks.html web_only/compiled_models: compiled_models.html -last_built: 2020-12-16T18:19Z +last_built: 2020-12-16T18:25Z urls: reference: https://pkgdown.jrwb.de/mkin/reference article: https://pkgdown.jrwb.de/mkin/articles diff --git a/docs/dev/reference/D24_2014.html b/docs/dev/reference/D24_2014.html index c841b68c..8160316f 100644 --- a/docs/dev/reference/D24_2014.html +++ b/docs/dev/reference/D24_2014.html @@ -235,6 +235,27 @@ specific pieces of information in the comments.

#> Differential equations: #> d_D24/dt = - k_D24 * D24 #> d_DCP/dt = + f_D24_to_DCP * k_D24 * D24 - k_DCP * DCP +#> d_DCA/dt = + f_DCP_to_DCA * k_DCP * DCP - k_DCA * DCA
m_D24_2 = mkinmod(D24 = mkinsub("DFOP", to = "DCP"), + DCP = mkinsub("SFO", to = "DCA"), + DCA = mkinsub("SFO")) +
#> Temporary DLL for differentials generated and loaded
print(m_D24_2) +
#> <mkinmod> model generated with +#> Use of formation fractions $use_of_ff: max +#> Specification $spec: +#> $D24 +#> $type: DFOP; $to: DCP; $sink: TRUE +#> $DCP +#> $type: SFO; $to: DCA; $sink: TRUE +#> $DCA +#> $type: SFO; $sink: TRUE +#> Compiled model $cf available +#> Differential equations: +#> d_D24/dt = - ((k1 * g * exp(-k1 * time) + k2 * (1 - g) * exp(-k2 * +#> time)) / (g * exp(-k1 * time) + (1 - g) * exp(-k2 * time))) +#> * D24 +#> d_DCP/dt = + f_D24_to_DCP * ((k1 * g * exp(-k1 * time) + k2 * (1 - g) * +#> exp(-k2 * time)) / (g * exp(-k1 * time) + (1 - g) * exp(-k2 +#> * time))) * D24 - k_DCP * DCP #> d_DCA/dt = + f_DCP_to_DCA * k_DCP * DCP - k_DCA * DCA