tests/testthat/test_compute_ecdf.R

In hclimente/scudo: Switch Catcher, Uprooting Differentially-expressed Ones

test_that('we require at least minSamples', {

    x <- c(1,2,3,4,5,6,7,8,9)
    f <- compute_ecdf(x, 0, 10)
    expect_true(is.na(f(4)))

    x <- c(1,2,3,4,5,6,7,8,9,10)
    f <- compute_ecdf(x, 0, 10)
    expect_equal(f(4), 0.6666666, tolerance = 1e-7)

    x <- c(1,2,3,4,5,6,7,8,9,10)
    f <- compute_ecdf(x, 0, 11)
    expect_true(is.na(f(4)))

})

test_that('we require at least minSamples with minValue', {

    x <- c(1,2,3,4,5,6,7,8,9,10)
    f <- compute_ecdf(x, 2, 10)
    expect_true(is.na(f(4)))

})