tests/testthat/test_estimate_sizes.R

context("estimate.n*")

test_that("estimate.nPathways works", {
  expect_length(estimate.nPathways(c(4, 5, 5, 5, 5, 5)), 2L)

})

test_that("estimate.nGenes works", {
  expect_length(estimate.nGenes(c(4, 5, 5, 5, 5, 5)), 2L)
})
llrs/GSEAdv documentation built on May 29, 2019, 6 p.m.