Differences

This shows you the differences between two versions of the page.

--- tips:multiple_imputation_with_mice_and_metafor [2020/12/13 11:48] – Wolfgang Viechtbauer
+++ tips:multiple_imputation_with_mice_and_metafor [2021/03/29 20:52] – Wolfgang Viechtbauer
@@ Line 137: / Line 137: @@
 install.packages("mice")
 library(mice)
-</code>
-Also, due to a recent change in the mice package (that currently breaks compatibility with the metafor package), we need to create a little helper function to make things work again.
-<code rsplus>
-withold <- function (data, expr) {
-  call <- match.call()
-  analyses <- as.list(seq_len(data$m))
-  for (i in seq_along(analyses)) {
-    data.i <- complete(data, i)
-    analyses[[i]] <- eval(expr = substitute(expr), envir = data.i, enclos = parent.frame())
-    if (is.expression(analyses[[i]]))
-      analyses[[i]] <- eval(expr = analyses[[i]], envir = data.i, enclos = parent.frame())
-  }
-  object <- list(call = call, call1 = data$call, nmis = data$nmis, analyses = analyses)
-  oldClass(object) <- c("mira", "matrix")
-  object
-}
 </code>
@@ Line 223: / Line 205: @@
 Next, we can fit the model of interest to each of the 20 imputed datasets with:
 <code rsplus>
-fit <- withold(imp, rma(yi, vi, mods = ~ length + wic + feedback + info + pers + imag + meta))
+fit <- with(imp, rma(yi, vi, mods = ~ length + wic + feedback + info + pers + imag + meta))
 </code>