tests/testthat/test-vip.R

test_that("vip works", {
   data("freelive2")
   object <- prcomp(XRVIP2)
   ### The object needs to be a MUVR pls(da) object
   expect_error(
   vip(object)
   )
})

Try the MUVR2 package in your browser

Any scripts or data that you put into this service are public.

MUVR2 documentation built on Sept. 16, 2024, 9:06 a.m.