tests/testthat/test-random_subsampling.R

In AlpsNMR: Automated spectraL Processing System for NMR

context("test-random_subsampling")

test_that("random_subsampling", {
subject_id <- c("Alice", "Bob", "Chalie", "Eve")
rnd <- random_subsampling(1:4, iterations = 2, test_size = 0.25, keep_together = subject_id)
rnd2 <- random_subsampling(1:4, iterations = 2, test_size = 0.25, keep_together = NULL)
rnd3 <- random_subsampling(1:4, iterations = 2, test_size = 0.3)
expect_true(is.list(rnd))
expect_true(is.list(rnd2))
expect_true(is.list(rnd3))
})