tests/testthat/test_zscoreOverBck.R

test_that("zscoreOverBck works not correct", {
    x <- runif(10000)
    y <- zscoreOverBck(x, backgroundPercentage=1)
    expect_equal(mean(y), 0, tolerance=1e-10)
})
LihuaJulieZhu/NADfinder documentation built on May 17, 2019, 6:21 p.m.