From c8559daaecc48626f27dd1d80d25bde346cb9776 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Mon, 31 Oct 2022 11:23:39 +0100
Subject: Add anova.mhmkin method

---
 R/mhmkin.R | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'R/mhmkin.R')

diff --git a/R/mhmkin.R b/R/mhmkin.R
index 7f3ff9fa..5cc95253 100644
--- a/R/mhmkin.R
+++ b/R/mhmkin.R
@@ -33,6 +33,12 @@ mhmkin <- function(objects, backend = "saemix", algorithm = "saem", ...) {
   UseMethod("mhmkin")
 }
 
+#' @export
+#' @rdname mhmkin
+mhmkin.mmkin <- function(object, ...) {
+  mhmkin(list(object), ...)
+}
+
 #' @export
 #' @rdname mhmkin
 mhmkin.list <- function(objects, backend = "saemix",
@@ -190,3 +196,13 @@ update.mhmkin <- function(object, ..., evaluate = TRUE) {
   if(evaluate) eval(call, parent.frame())
   else call
 }
+
+#' export
+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))
+  }
+  rlang::inject(anova(!!!(object), method = method, test = test, model.names = model.names))
+}
+
-- 
cgit v1.2.1