tests/testthat/test_keeps.R

context("keep.R")

test_that("keepPPG works", {
  out <- keepPPG(Info)
  expect_equal(ncol(out), 6L)
})

test_that("keepGPP works", {
  out <- keepGPP(Info)
  expect_equal(ncol(out), 6L)
})
llrs/GSEAdv documentation built on May 29, 2019, 6 p.m.