tests/testthat/test-pca.R

context('pca')

test_that("pca works as expected", code = {
    data(multidrug)
    pca.res1 <- pca(multidrug$ABC.trans, ncomp = 2, scale = TRUE)
    expect_is(pca.res1, 'pca')
})

Try the mixOmics package in your browser

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

mixOmics documentation built on April 15, 2021, 6:01 p.m.