## Not run: 
# 
# #Rebuild cummeRbund's internal dataset
# cuffDB <- readCufflinks(dir=system.file("extdata", package="cummeRbund"), gtf=system.file("extdata/chr1_snippet.gtf", package="cummeRbund"), genome='hg19' ,rebuild=TRUE)
# 
# #Generate SpliceRList from cufflinks data
# cuffDB_spliceR <- prepareCuff(cuffDB)
# 
# # Require BSgenome object, containing genomic sequence
# require("BSgenome.Hsapiens.UCSC.hg19",character.only = TRUE)
# 
# #Get CDS from UCSC
# ucscCDS <- getCDS(selectedGenome="hg19", repoName="UCSC")
# 
# #Annotate with PTCs
# cuffDB_spliceR_PTC <- annotatePTC(cuffDB_spliceR, cds=ucscCDS, Hsapiens, PTCDistance=50)
# 
# ## End(Not run)
Run the code above in your browser using DataLab