context("sp_manyroc_with_cv_by_variable")
# [!!!] A test to check if calculations are correct is needed.
test_that("sp_manyroc_with_cv_by_variable works", {
fluorescence$ID <- 1:nrow(fluorescence)
k_folds <- 3
times <- 2
rez <- sp_manyroc_with_cv_by_variable(
fluorescence[, , 500 ~ 501],
c("gr", "class"),
k_folds = k_folds,
times = times
)
expect_length(rez, 7)
expect_equal(rez$variable, NULL)
expect_equal(rez$n_included, data.frame(gr = 150, class = 150))
expect_true(all(
purrr::map_lgl(rez$ind_included_rows, ~ inherits(.x, "logical"))
))
expect_equal(attributes(rez$cvo[[1]])$info$k, k_folds)
expect_equal(attributes(rez$cvo[[1]])$info$repetitions, times)
expect_is(rez$results, "data.frame")
expect_equal(rez$variables_errored, character(0))
expect_length(rez$variables_included, 2)
expect_equal(rez$error_messages[[1]], NULL)
expect_equal(rez$error_messages[[2]], NULL)
})
# test_that("reproducibility check / setting seeds correctly", {
#
# fluorescence$ID <- 1:nrow(fluorescence)
# k_folds = 3
# times = 2
#
# parallelMap::parallelStartSocket(min(2, parallel::detectCores()),
# show.info = FALSE)
#
# parallel::clusterSetRNGStream(iseed = 1)
# rez_1 <- sp_manyroc_with_cv_by_variable(fluorescence[,,500~501],
# c("gr", "class"),
# k_folds = k_folds,
# seeds = NULL,
# times = times)
#
# parallel::clusterSetRNGStream(iseed = 1)
# rez_2 <- sp_manyroc_with_cv_by_variable(fluorescence[,,500~501],
# c("gr", "class"),
# k_folds = k_folds,
# seeds = NULL,
# times = times)
#
#
# parallel::clusterSetRNGStream(iseed = 2)
# rez_3 <- sp_manyroc_with_cv_by_variable(fluorescence[,,500~501],
# c("gr", "class"),
# k_folds = k_folds,
# seeds = NULL,
# times = times)
#
# parallelMap::parallelStop()
#
# expect_equal(rez_1, rez_2)
#
# expect_false(identical(rez_1, rez_3))
# expect_false(identical(rez_2, rez_3))
#
#
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.