if (FALSE) {
Seqs <- seqinr::read.fasta(file =
"http://www.ncbi.nlm.nih.gov/WebSub/html/help/sample_files/nucleotide-sample.txt")
referFreq <- make_referFreq(cds.seq = Seqs, lncRNA.seq = Seqs, k = 6, step = 3,
alphabet = c("a", "c", "g", "t"), on.orf = TRUE,
ignore.illegal = TRUE)
data(demo_DNA.seq)
Sequences <- demo_DNA.seq
LogDistance <- compute_LogDistance(Sequences, label = "NonCoding", referFreq = referFreq,
k = 6, step = 3, alphabet = c("a", "c", "g", "t"),
on.ORF = TRUE, auto.full = TRUE, parallel.cores = 2)
}
Run the code above in your browser using DataLab