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)
})

Try the NADfinder package in your browser

Any scripts or data that you put into this service are public.

NADfinder documentation built on Nov. 8, 2020, 5:35 p.m.