From d518c4cfa22994db5ba81a6b01c6cb4c4186872e Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 15 Apr 2020 20:42:29 +0200 Subject: Adapt endpoint() to also work for nlme.mmkin objects --- man/nlme.mmkin.Rd | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'man/nlme.mmkin.Rd') diff --git a/man/nlme.mmkin.Rd b/man/nlme.mmkin.Rd index 26dcce66..97d444e4 100644 --- a/man/nlme.mmkin.Rd +++ b/man/nlme.mmkin.Rd @@ -79,8 +79,10 @@ ds <- lapply(experimental_data_for_UBA_2019[6:10], function(x) subset(x$data[c("name", "time", "value")], name == "parent")) f <- mmkin("SFO", ds, quiet = TRUE, cores = 1) library(nlme) +endpoints(f[[1]]) f_nlme <- nlme(f) print(f_nlme) +endpoints(f_nlme) f_nlme_2 <- nlme(f, start = c(parent_0 = 100, log_k_parent_sink = 0.1)) update(f_nlme_2, random = parent_0 ~ 1) \dontrun{ @@ -125,6 +127,9 @@ update(f_nlme_2, random = parent_0 ~ 1) anova(f_nlme_dfop_sfo, f_nlme_fomc_sfo, f_nlme_sfo_sfo) anova(f_nlme_dfop_sfo, f_nlme_sfo_sfo) # if we ignore FOMC + + endpoints(f_nlme_sfo_sfo) + endpoints(f_nlme_dfop_sfo) } } \seealso{ -- cgit v1.2.1