test_that("sparsity works", {
data("exp_mouse")
sp <- orthogene:::sparsity(X = exp_mouse)
testthat::expect_equal(round(sp,3), .054)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.