From 2f492ce2acf21610a7b15ce5d1878cf0f2ae5b4d Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 20 Jul 2020 21:02:28 +0200 Subject: Require upcoming nlme version, remove anova.nlme.mmkin The method is no longer necessary, now that Bug 17761 is fixed upstream https://bugs.r-project.org/bugzilla/show_bug.cgi?id=17761 --- R/nlme.mmkin.R | 29 ----------------------------- 1 file changed, 29 deletions(-) (limited to 'R') diff --git a/R/nlme.mmkin.R b/R/nlme.mmkin.R index fdf64fbf..a94a26f7 100644 --- a/R/nlme.mmkin.R +++ b/R/nlme.mmkin.R @@ -170,32 +170,3 @@ update.nlme.mmkin <- function(object, ...) { class(res) <- c("nlme.mmkin", "nlme", "lme") return(res) } - -# The following is necessary as long as R bug 17761 is not fixed -# https://bugs.r-project.org/bugzilla/show_bug.cgi?id=17761 -#' @export -anova.nlme.mmkin <- function(object, ...) { - thisCall <- as.list(match.call())[-1] - object_name <- as.character(thisCall[[1]]) - other_object_names <- sapply(thisCall[-1], as.character) - - remove_class <- function(object, classname) { - old_class <- class(object) - class(object) <- setdiff(old_class, classname) - return(object) - } - object <- remove_class(object, "nlme.mmkin") - other_objects <- list(...) - other_objects <- lapply(other_objects, remove_class, "nlme.mmkin") - - env <- new.env() - assign(object_name, object, env) - for (i in seq_along(other_objects)) { - assign(other_object_names[i], other_objects[[i]], env) - } - res <- eval(parse(text = paste0("anova.lme(", object_name, ", ", - paste(other_object_names, collapse = ", "), ")")), - envir = env) - - return(res) -} -- cgit v1.2.1