# NOT RUN {
#Loading an example annotation file and write to a file
#Here temporary directory is created as input-output
#directory. Please provide your own directory instead.
out_dir<-tempdir()
annotation_file<-data(refGenchr1)
annotation_file<-refGenchr1
write.table(annotation_file, file.path(out_dir,"annotation_file.gtf"),
row.names=FALSE, sep="\t",quote=FALSE, col.names=FALSE)
#Extraction of transcript information. Here, the output will be generated in file
#transcriptdata.txt in out_dir directory
transcriptExtract(file.path(out_dir,"annotation_file.gtf"), "ucsc",
file.path(out_dir, "transcriptdata.txt"))
# }
Run the code above in your browser using DataLab