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 --- R/nlme.mmkin.R | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'R/nlme.mmkin.R') diff --git a/R/nlme.mmkin.R b/R/nlme.mmkin.R index 6e3467ed..1d6c2e75 100644 --- a/R/nlme.mmkin.R +++ b/R/nlme.mmkin.R @@ -31,8 +31,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{ @@ -77,6 +79,9 @@ #' #' 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) #' } # Code inspired by nlme.nlsList nlme.mmkin <- function(model, data = sys.frame(sys.parent()), -- cgit v1.2.1