From 518a801a9a0f1aef36df1f201b6a3f0f3a84b779 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Sat, 18 Apr 2020 00:38:26 +0200 Subject: Avoid assignment to .GlobalEnv for CRAN --- docs/reference/nlme.mmkin.html | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'docs/reference/nlme.mmkin.html') diff --git a/docs/reference/nlme.mmkin.html b/docs/reference/nlme.mmkin.html index 9af9cbf7..33cc9164 100644 --- a/docs/reference/nlme.mmkin.html +++ b/docs/reference/nlme.mmkin.html @@ -258,7 +258,7 @@ parameters taken from the mmkin object are used

#> parent 11.96183 39.73634 #>
f_nlme <- nlme(f) print(f_nlme)
#> Nonlinear mixed-effects model fit by maximum likelihood -#> Model: value ~ deg_func(name, time, parent_0, log_k_parent_sink) +#> Model: value ~ (mkin::get_deg_func())(name, time, parent_0, log_k_parent_sink) #> Data: "Not shown" #> Log-likelihood: -307.5269 #> Fixed: list(parent_0 ~ 1, log_k_parent_sink ~ 1) @@ -276,9 +276,10 @@ parameters taken from the mmkin object are used

#> Number of Groups: 5
endpoints(f_nlme)
#> $distimes #> DT50 DT90 #> parent 17.51545 58.18505 -#>
f_nlme_2 <- nlme(f, start = c(parent_0 = 100, log_k_parent_sink = 0.1)) -update(f_nlme_2, random = parent_0 ~ 1)
#> Nonlinear mixed-effects model fit by maximum likelihood -#> Model: value ~ deg_func(name, time, parent_0, log_k_parent_sink) +#>
# \dontrun{ + f_nlme_2 <- nlme(f, start = c(parent_0 = 100, log_k_parent_sink = 0.1)) + update(f_nlme_2, random = parent_0 ~ 1)
#> Nonlinear mixed-effects model fit by maximum likelihood +#> Model: value ~ (mkin::get_deg_func())(name, time, parent_0, log_k_parent_sink) #> Data: "Not shown" #> Log-likelihood: -404.3729 #> Fixed: list(parent_0 ~ 1, log_k_parent_sink ~ 1) @@ -291,8 +292,7 @@ parameters taken from the mmkin object are used

#> StdDev: 0.002416792 21.63027 #> #> Number of Observations: 90 -#> Number of Groups: 5
# \dontrun{ - # Test on some real data +#> Number of Groups: 5
# Test on some real data ds_2 <- lapply(experimental_data_for_UBA_2019[6:10], function(x) x$data[c("name", "time", "value")]) m_sfo_sfo <- mkinmod(parent = mkinsub("SFO", "A1"), -- cgit v1.2.1