tests/testthat/test-plotPca.R

test_that("DESeqAnalysis", {
    object <- objs[["deseq"]]
    p <- plotPca(object)
    expect_s3_class(p, "ggplot")
})

test_that("DESeqTransform", {
    object <- as.DESeqTransform(objs[["deseq"]])
    p <- plotPca(object)
    expect_s3_class(p, "ggplot")
})
acidgenomics/r-deseqanalysis documentation built on March 30, 2024, 12:08 p.m.