From 2f492ce2acf21610a7b15ce5d1878cf0f2ae5b4d Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
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