tests/testthat/test-counts.R

test_that("SummarizedExperiment", {
    object <- counts(rse)
    expect_type(object, "integer")
})

test_that("SE assignment", {
    counts <- counts(rse)
    counts <- log2(counts + 1L)
    counts(rse) <- counts
    expect_s4_class(rse, "RangedSummarizedExperiment")
})

test_that("SE assignment failure", {
    expect_error(counts(rse) <- matrix())
})
acidgenomics/r-acidexperiment documentation built on March 29, 2025, 4:20 a.m.