Skip to main content

Browse the archive

Revision 1ddbe2f99ea983d4d491c331e960885eeee8a2ec authored by Alexey Sergushichev on 17 December 2018, 21:32:23 UTC, committed by Alexey Sergushichev on 17 December 2018, 21:32:23 UTC 
slack notification
1 parent a350ecc
Raw File
testpcaPlot.R 
context("PCA Plot")

test_that("pcaPlot finishes with result", {
  load(file = system.file("testdata/GSE27112-GPL6103.rda", package="phantasus"))
  expect_is(calcPCA(es), "json")
})

test_that("pcaPlot results in columnsXcolumns matrix", {
  load(file = system.file("testdata/GSE27112-GPL6103.rda", package="phantasus"))
  expect_equal(nrow(jsonlite::fromJSON(calcPCA(es))$pca),
                length(sampleNames(es)))
})

test_that("pcaPlot drops NA rows", {
    es <- read.gct(system.file("testdata/centers.gct", package="phantasus"))
    pca <- jsonlite::fromJSON(calcPCA(es))
    expect_equal(nrow(exprs(es)), 6)
    expect_equal(nrow(pca$pca), 5)
})
back to top