inst/unitTests/test_populations.R

In rcastelo/GenomicScores: Infrastructure to work with genomewide position-specific scores

test_populations <- function() {
  if (require(phastCons100way.UCSC.hg19)) {
    gsco <- phastCons100way.UCSC.hg19
    pops <- populations(gsco)

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