tests/testthat/test-predMV.R

In MUVR2: Multivariate Methods with Unbiased Variable Selection

test_that("predMV works", {
  ## The number of variables and variable names in the new data must match with the MUVR object
  expect_error(
    predMV(regrModel,
               XRVIP2[,1:100])
               )
  expect_error(
    predMV(classModel,
           XRVIP2)
  )
})