Nothing
prepare_mids_recode <- function(x) {
# check if suggested package is available
if (!requireNamespace("mice", quietly = TRUE))
stop("Package `mice` needed for this function to work. Please install it.", call. = FALSE)
# check classes
if (!inherits(x, "mids"))
stop("`x` must be a `mids`-object, as returned by the `mice()`-function.", call. = FALSE)
# convert mids into long-data.frame
long <- mice::complete(x, action = "long", include = TRUE)
# group by imputation, so we can easily iterate each imputed dataset
long %>%
dplyr::group_by(.data$.imp) %>%
.nest()
}
final_mids_recode <- function(x) {
# check if suggested package is available
if (!requireNamespace("mice", quietly = TRUE))
stop("Package `mice` needed for this function to work. Please install it.", call. = FALSE)
# return mids-object. need to use "as.data.frame()",
# because "as.mids()" can't cope with tibbles
x %>%
.unnest() %>%
as.data.frame() %>%
mice::as.mids()
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.