tests/testthat/test-summarizeBootstraps.R

In biobenkj/compartmentalizer: Higher-order chromatin domain inference in single samples from methylation arrays and single cells from scRNA-seq and scATAC-seq

# summarizeBoostraps
test_that("summarizeBoostraps", {
})

# .isCompartmentOpen
test_that(".isCompartmentOpen", {
  .isCompartmentOpen <- compartmap:::.isCompartmentOpen
  expect_true(
    .isCompartmentOpen(is.atac_or_rna = TRUE, eigen = 1, cutoff = 0),
    .isCompartmentOpen(is.atac_or_rna = FALSE, eigen = 0, cutoff = 0),
    .isCompartmentOpen(is.atac_or_rna = FALSE, eigen = -1, cutoff = 0)
  )
  expect_false(
    .isCompartmentOpen(is.atac_or_rna = TRUE, eigen = 0, cutoff = 0),
    .isCompartmentOpen(is.atac_or_rna = TRUE, eigen = -1, cutoff = 0),
    .isCompartmentOpen(is.atac_or_rna = FALSE, eigen = 1, cutoff = 0)
  )
})