tests/testthat/test-uniqDASamp.R

In MUVR2: Multivariate Methods with Unbiased Variable Selection

test_that("uniqDASamp works", {
  data(mosquito)
   Y <- Yotu
   ID <- sample(c(1,1:length(Yotu)),replace = TRUE)
   folds <- 5

   ## the Y length and the ID length is not the same
   expect_error(uniqDASamp(Y, ID, folds))
})