### Only for examples:
data(demo_DNA.seq)
Seqs <- demo_DNA.seq
if (FALSE) {
### Obtain the secondary structure sequences (Windows OS):
RNAfold.path <- '"E:/Program Files/ViennaRNA/RNAfold.exe"'
SS.seq <- run_RNAfold(Seqs, RNAfold.path = RNAfold.path, parallel.cores = 2)
### Make frequencies file with secondary strucutre features,
my_file_1 <- make_frequencies(cds.seq = SS.seq, mRNA.seq = SS.seq,
lncRNA.seq = SS.seq, SS.features = TRUE,
cds.format = "SS", lnc.format = "SS",
check.cds = TRUE, ignore.illegal = FALSE)
}
### Make frequencies file without secondary strucutre features,
my_file_2 <- make_frequencies(cds.seq = Seqs, lncRNA.seq = Seqs,
SS.features = FALSE, cds.format = "DNA",
lnc.format = "DNA", check.cds = TRUE,
ignore.illegal = FALSE)
### The input of cds.seq and lncRNA.seq can also be secondary structure
### sequences when SS.features = FALSE, such as,
data(demp_SS.seq)
SS.seq <- demo_SS.seq
my_file_3 <- make_frequencies(cds.seq = SS.seq, lncRNA.seq = Seqs,
SS.features = FALSE, cds.format = "SS",
lnc.format = "DNA", check.cds = TRUE,
ignore.illegal = FALSE)
Run the code above in your browser using DataLab