tests/testthat/test_buildBackgroundModel.R

test_that("test_bg_p_bg", {
    bg <- buildBackgroundModel(seq.example, background = "inputSet", 
                               numSubsamples = 2L)
    bg <- buildBackgroundModel(seq.example, background = "nonInputSet", 
        proteome = proteome.example, numSubsamples = 2L)
})

test_that("test_bg_p_combinations", {
    bg <- buildBackgroundModel(seq.example, background = "inputSet", 
        model = "anchored", numSubsamples = 2L)
})

test_that("test_bg_p_model", {
    bg <- buildBackgroundModel(seq.example, targetPosition = "Nterminus", 
        proteome = proteome.example, numSubsamples = 2L)
    bg <- buildBackgroundModel(seq.example, targetPosition = "Cterminus", 
        proteome = proteome.example, numSubsamples = 2L)
})

test_that("test_bg_p_others", {
    bg <- buildBackgroundModel(seq.example, uniqueSeq = FALSE, 
        proteome = proteome.example, numSubsamples = 2L)
    bg <- buildBackgroundModel(seq.example, replacement = TRUE, 
        proteome = proteome.example, numSubsamples = 2L)
})

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.