## 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