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')
})
mixOmicsTeam/mixOmics documentation built on Oct. 26, 2023, 6:48 a.m.