tests/testthat/test-sparsity.R

test_that("sparsity works", {
  
    data("exp_mouse")
    sp <- orthogene:::sparsity(X = exp_mouse)
    testthat::expect_equal(round(sp,3), .054)
})
neurogenomics/orthogene documentation built on Jan. 30, 2024, 4:44 a.m.