inst/unitTests/test_populations.R

test_populations <- function() {
  if (require(phastCons100way.UCSC.hg38)) {
    gsco <- phastCons100way.UCSC.hg38

    pops <- populations(gsco)

    checkIdentical(pops, c("default", "DP2"))

    checkIdentical(unique(genome(gsco)), "Genome Reference Consortium GRCh38")
    checkIdentical(provider(gsco), "UCSC")
  }
}
rcastelo/GenomicScores documentation built on July 5, 2025, 5:37 a.m.