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. 9, 2018, 5:07 a.m.