Skip to main content

Browse the archive

Revision 7860af3a5537decc933cb79381a493ad62537499 authored by Alexey Sergushichev on 02 June 2018, 09:13:22 UTC, committed by Alexey Sergushichev on 02 June 2018, 09:13:22 UTC 
JS: fixed double createES for TCGA data
1 parent df7331d
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)))
})
back to top