# NOT RUN {
##-------------------------------------##
## A) Ensembl
##-------------------------------------##
ef <- system.file("extdata", "hs.ensembl.62.small.RData", package="refGenome")
ens <- loadGenome(ef)
enj <- getSpliceTable(ens)
ufe <- unifyJuncs(enj)
# }
# NOT RUN {
saveGenome(enj,"enj.RData", useBasedir=FALSE)
enjr <- loadGenome("enj.RData")
# }
# NOT RUN {
##-------------------------------------##
## B) UCSC
##-------------------------------------##
uf <- system.file("extdata", "hs.ucsc.small.RData", package="refGenome")
uc <- loadGenome(uf)
ucj <- getSpliceTable(uc)
ufu <- unifyJuncs(ucj)
# }
# NOT RUN {
saveGenome(ucj, "ucj.RData",useBasedir=FALSE)
ucjr <- loadGenome("ucj.RData")
# }
Run the code above in your browser using DataLab