R/recode_mids_fun.R

Defines functions final_mids_recode prepare_mids_recode

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()
}
sjPlot/sjmisc documentation built on June 28, 2023, 2:39 p.m.