library(EnsDb.Hsapiens.v75)
edb <- EnsDb.Hsapiens.v75
## Get the internal, default seqlevel style.
seqlevelsStyle(edb)
## Get the seqlevels from the database.
seqlevels(edb)
## Get all supported mappings for the organism of the EnsDb.
supportedSeqlevelsStyles(edb)
## Change the seqlevels to UCSC style.
seqlevelsStyle(edb) <- "UCSC"
seqlevels(edb)
## Change the option ensembldb.seqnameNotFound to return NA in case
## the seqname can not be mapped form Ensembl to UCSC.
options(ensembldb.seqnameNotFound=NA)
seqlevels(edb)
## Restoring the original setting.
options(ensembldb.seqnameNotFound="ORIGINAL")
## Integrate Ensembl based annotations with a BSgenome package that is based on
## UCSC style seqnames.
library(BSgenome.Hsapiens.UCSC.hg19)
bsg <- BSgenome.Hsapiens.UCSC.hg19
## Get the genome version
unique(genome(bsg))
unique(genome(edb))
## Although differently named, both represent genome build GRCh37.
## Extract the full transcript sequences of all lincRNAs encoded on chromsome Y.
yTxSeqs <- extractTranscriptSeqs(bsg, exonsBy(edb, "tx",
filter=list(SeqnameFilter("chrY"),
GenebiotypeFilter("lincRNA"))))
yTxSeqs
Run the code above in your browser using DataLab