if (FALSE) {
data(demo_DNA.seq)
Seqs <- demo_DNA.seq
### Input one sequence:
OneSeq <- Seqs[1]
result_1 <- lnc_finder(OneSeq, SS.features = FALSE, format = "DNA",
frequencies.file = "human", svm.model = "human",
parallel.cores = 2)
### Or several sequences:
data(demo_SS.seq)
Seqs <- demo_SS.seq
result_2 <- lnc_finder(Seqs, SS.features = TRUE, format = "SS",
frequencies.file = "mouse", svm.model = "mouse",
parallel.cores = 2)
### A complete work flow:
### Calculate second structure on Windows OS,
RNAfold.path <- '"E:/Program Files/ViennaRNA/RNAfold.exe"'
SS.seq <- run_RNAfold(Seqs, RNAfold.path = RNAfold.path, parallel.cores = 2)
### Predict the sequences with secondary structure features,
result_2 <- lnc_finder(SS.seq, SS.features = TRUE, format = "SS",
frequencies.file = "mouse", svm.model = "mouse",
parallel.cores = 2)
### Predict sequences with your own model by assigning a new svm.model and
### frequencies.file to parameters "svm.model" and "frequencies.file"
}
Run the code above in your browser using DataLab