tests/testthat/test-plotMitoVsCoding.R

## Current example doesn't contain mito genes, so fake this.

test_that("SingleCellExperiment", {
    object <- calculateMetrics(sce)
    colData(object)[["nMito"]] <- colData(object)[["nCoding"]] * 0.1
    p <- plotMitoVsCoding(object)
    expect_s3_class(p, "ggplot")
})
acidgenomics/minimalism documentation built on April 1, 2024, 10:34 a.m.