context("ipca")
test_that('ipca results for nutrimouse are the same when using either list or MAE class (with and without quotes for Y)',{
ipca.res1 <- ipca(X = nutrimouse$gene)
ipca.res2 <- ipca(X = nutrimouse.mae, assay = "gene")
## ignore call slot and expect identical
expect_identical(ipca.res1[-1], ipca.res2[-1])
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.