tests/testthat/test-7-dataSim.r

In al2na/methylKit: DNA methylation analysis from high-throughput bisulfite sequencing results

#library("methylKit")
context("dataSim checks")

data("methylKit")

# test dataSim
my.methylBase=dataSim(replicates=4,sites=20000,treatment=c(1,1,0,0))
my.methylBase2=dataSim(replicates=4,sites=20000,treatment=c(1,1,0,0),effect=c(40,50,60,70))

test_that("check if dataSim output is a methylBase object", {
  expect_that(my.methylBase, 
              is_a('methylBase'))
})

test_that("check if dataSim output with vectorized effect sizes is a methylBase object", {
  expect_that(my.methylBase2, 
              is_a('methylBase'))
})

unlink("tests/testthat/methylDB",recursive = TRUE)