tests/testthat/test_non_lite_fns.R

library('M3D')
context('Non-lite functions')

test_that('pvals works properly', {
    data('rrbsDemo')
    data('CpGsDemo')
    data('MMDlistDemo')
    data('PDemo')
    group1 <- 'H1-hESC'
    group2 <- 'K562'
    M3D <- MMDlistDemo$Full-MMDlistDemo$Coverage
    expect_equal(pvals(rrbsDemo, CpGsDemo, M3D, group1, group2,
                      smaller=FALSE,comparison='allReps',method='empirical',
                      closePara=0.005),PDemo, tolerance=1.0e-4)
})

Try the M3D package in your browser

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

M3D documentation built on April 29, 2020, 5:59 a.m.