tests/testthat/test-baseMeanThreshold.R

test_that("DESeqAnalysis", {
    object <- objs[["deseq"]]
    value <- 0L
    baseMeanThreshold(object) <- NULL
    expect_identical(baseMeanThreshold(object), value)
    value <- 1L
    baseMeanThreshold(object) <- value
    expect_identical(baseMeanThreshold(object), value)
})
steinbaugh/DESeqAnalysis documentation built on April 1, 2024, 8:30 a.m.