tests/testthat/test_DAGtest.R

test_that("test_testDAU_group", {
    bg <- buildBackgroundModel(seq.example, proteome = proteome.example, 
        numSubsamples = 10L)
    t <- testDAU(seq.example, bg)
    expect_true(t@statistics["K", "AA0"] > 100)
    expect_equal(0, t@pvalue["K", "AA0"])
})

Try the dagLogo package in your browser

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

dagLogo documentation built on Dec. 5, 2020, 2 a.m.