tests/testthat/test_plotPCA3d.R

#test_that('testing 3d-pca graphics', {
#  file <- system.file("extdata", "pasilla_gene_counts.csv", package = "sahu")
#  out <- plotPCA3d(file)
#  vdiffr::expect_doppelganger("static pca", out)
#})
sk-sahu/sahu documentation built on Nov. 20, 2019, 6:28 p.m.