tests/testthat/test-evaluate_imputed_values.R

In torockel/missMethods: Methods for Missing Data

# most of the testing is done in the tests of calc_evaluation_criterion()
test_that("evaluate_imputed_values()", {
  df_XY_20_imp <- df_XY_20
  df_XY_20_imp[1, 1] <- 2
  expect_equal(
    evaluate_imputed_values(df_XY_20_imp,
      df_XY_20,
      criterion = "MAE"
    ),
    1 / 40
  )

  expect_equal(
    evaluate_imputed_values(df_XY_20_imp,
      df_XY_20,
      criterion = "MAE",
      M = matrix(c(TRUE, rep(FALSE, 39)), nrow = 20),
      cols_which = 1
    ),
    1
  )

  expect_error(
    evaluate_imputed_values(df_XY_20_imp, df_XY_100),
    "the dimensions of ds_imp and ds_orig must be equal"
  )
})