tests/testthat/test-pca.R

In ajabadi/mixOmics2: Omics Data Integration Project

context("pca") ## context helps devtools::test() to categorise tests
test_that('pca results for nutrimouse are the same when using either list or MAE class (with and without quotes OR using assay index for Y)',{
  pca.res1 <- pca(X = nutrimouse$lipid)
  pca.res2 <- pca(X = nutrimouse.mae, assay = "lipid")
  ## ignore call slot and expect identical
  expect_identical(pca.res1[-1], pca.res2[-1])
})

##TODO tests for:
## NULL assay

test_that('pca returns error for invalid assay',{
  ## expect error
  expect_error(pca(X = nutrimouse.mae, assay = "lipidz"), class = "inv_assay")
})