Nothing
# 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"
)
})
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.