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
testutilfunctions.R 
context("Util functions")

test_that("prepareData replaces all NAs and filters fully NA rows", {
  data <- prepareData(read.gct(system.file("testdata/centers.gct", package="phantasus")))
  expect_equal(nrow(data), 5)
})

test_that("data preparation successfully eliminates na-rows when at first rows are specified", {
  load(system.file("testdata/aa.rda", package="phantasus"))
  data <- prepareData(aa, rows = unlist(jsonlite::read_json(system.file("testdata/rows", package="phantasus"))))
  expect_equal(nrow(data), 10)
})
back to top