tests/testthat/helper-organismdb.R

make_test_gene_info <- function() {
  library(bumphunter)

  tt <- bumphunter::TT$transcripts
  tt <- keepSeqlevels(tt, paste0("chr",c(1:22,"X","Y")), pruning.mode="coarse")
  tt
}
epiviz/epivizr documentation built on Oct. 8, 2017, 1:52 p.m.