# NOT RUN {
#Loading an example reference genome and write to a file
#Here temporary directory is created as input-output
#directory. Please provide you own directory instead.
out_dir<-tempdir()
ref_genom<-data("chr1")
ref_genom<-chr1
df.fasta=dataframe2fas(ref_genom, file.path(out_dir, "ref_genome.fasta"))
#Loading an example circRNA classification bed file and write to a file
circ_class_bed<-data("circRNA_classb")
circ_class_bed<-circRNA_classb
write.table(circ_class_bed, file.path(out_dir, "circ_class.bed"),
col.names=FALSE, row.names=FALSE)
#Getting genomic sequences of circRNAs. The output will be
#generated in file circRNA_genomic_seq.fasta in out_dir directory
get.fasta(file.path(out_dir, "ref_genome.fasta"),
file.path(out_dir, "circ_class.bed"),
file.path(out_dir, "circRNA_genomic_seq.fasta"))
# }
Run the code above in your browser using DataLab