From e444e3eb3e21c66c34ce48775467cd9fa53f2a92 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 31 Oct 2022 16:19:37 +0100 Subject: Possibility to override the error model in update.saem --- R/mhmkin.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'R/mhmkin.R') diff --git a/R/mhmkin.R b/R/mhmkin.R index 5cc95253..2fb4d9bc 100644 --- a/R/mhmkin.R +++ b/R/mhmkin.R @@ -108,7 +108,9 @@ mhmkin.list <- function(objects, backend = "saemix", attributes(results) <- attributes(fit_indices) attr(results, "call") <- call attr(results, "time") <- fit_time - class(results) <- "mhmkin" + class(results) <- switch(backend, + saemix = c("mhmkin.saem.mmkin", "mhmkin") + ) return(results) } @@ -201,7 +203,7 @@ update.mhmkin <- function(object, ..., evaluate = TRUE) { anova.mhmkin <- function(object, ..., method = c("is", "lin", "gq"), test = FALSE, model.names = "auto") { if (identical(model.names, "auto")) { - model.names <- paste(rownames(object), "-", colnames(object)) + model.names <- outer(rownames(object), colnames(object), paste) } rlang::inject(anova(!!!(object), method = method, test = test, model.names = model.names)) } -- cgit v1.2.1