tests/testthat/test-resultsNames.R

test_that("DESeqAnalysis", {
    object <- objs[["deseq"]]
    expect_identical(
        object = resultsNames(object),
        expected = c(
            "condition_B_vs_A",
            "treatment_D_vs_C"
        )
    )
    resultsNames(object) <- c("XXX", "YYY")
    expect_identical(
        object = resultsNames(object),
        expected = c("XXX", "YYY")
    )
})
steinbaugh/DESeqAnalysis documentation built on Oct. 13, 2023, 5:39 a.m.