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')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.