Informs the user that pool() cannot take a mids object (#433)

amices · Oct 5, 2021 · cd14b87 · cd14b87
1 parent 666d0e7
commit cd14b87
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/as.R b/R/as.R
@@ -141,6 +141,9 @@ as.mira <- function(fitlist) {
   if (is.mira(fitlist)) {
     return(fitlist)
   }
+  if (is.mids(fitlist)) {
+    stop("as.mira() cannot convert class 'mids' into 'mira'. Use with() instead.")
+  }
   call <- match.call()
   if (!is.list(fitlist)) {
     stop("Argument 'fitlist' is not a list")