# Tests for matrix checks
data("pbmc_small")
pbmc_small <- suppressWarnings(suppressMessages(UpdateSeuratObject(pbmc_small)))
counts <- GetAssayData(pbmc_small, assay = "RNA", slot = "counts")
test_that("CheckMatrix works for valid matrix", {
expect_null(CheckMatrix(counts))
})
test_that("CheckMatrix warns for non-integer counts", {
counts[1,1] <- 1/2
expect_warning(CheckMatrix(counts))
})
test_that("CheckMatrix warns for NA values", {
counts[1,1] <- NA
expect_warning(CheckMatrix(counts))
})
test_that("CheckMatrix warns for NaN values", {
counts[1,1] <- NaN
expect_warning(CheckMatrix(counts))
})
test_that("CheckMatrix warns for logical values", {
counts <- as(object = counts, Class = "lsparseMatrix")
expect_warning(CheckMatrix(counts))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.