tests/testthat/test-zerosVsDepth.R

In acidgenomics/r-acidsinglecell: Acid Genomics Single Cell Experiment

## NOTE These values can change when we update AcidTest.
test_that("SummarizedExperiment", {
    object <- rse
    x <- zerosVsDepth(object)
    expect_s4_class(x, "DFrame")
    expect_identical(
        object = round(mean(x[["dropout"]]), digits = 3L),
        expected = 0.096
    )
    expect_identical(
        object = round(mean(x[["depth"]]), digits = 2L),
        expected = 22140.67 # nolint
    )
})

test_that("SingleCellExperiment", {
    object <- sce
    x <- zerosVsDepth(object)
    expect_s4_class(x, "DFrame")
    expect_identical(
        object = round(mean(x[["dropout"]]), digits = 2L),
        expected = 0.02
    )
    expect_identical(
        object = round(mean(x[["depth"]]), digits = 2L),
        expected = 61058.86
    )
})