tests/testthat/test_classPerform.R

library(testthat)
library(MethylIT)
context("MethylIT classPerform tests")

test_that("classPerform function test", {
  # load simulated data of potential methylated signal
  data(sim_ps)

  cp = classPerform(LR = PS, min.tv = 0.25, tv.cut = 0.4,
                    cutoff = 68.7, tv.col = 7L, div.col = 9, stat = 0)
  expect_true(cp$FDR < 0.1)
})
genomaths/MethylIT.utils documentation built on Nov. 26, 2019, 2:10 a.m.