# NOT RUN {
##-------------------------------------##
## A) Ensembl
##-------------------------------------##
ensfile <- system.file("extdata",
"hs.ensembl.62.small.RData", package="refGenome")
ens <-loadGenome(ensfile)
gt <- getGeneTable(ens)
gl <- geneList(ens, gt$gene_id, interior=TRUE)
names(gl)
length(gl)
gl
gl[1]
gl[1] + gl[2]
# }
Run the code above in your browser using DataLab