tests/testthat/test_buildBackgroundModel.R

In jianhong/dagLogo: dagLogo: a Bioconductor package for visualizing conserved amino acid sequence pattern in groups based on probability theory

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