if (suppressWarnings(require(Rlibstree, quietly=TRUE))) {
seqs = c(a="UGAGGUAGUAGGUUGUAUAGUU", b="UGAGGUAGUAGGUUGUGUGGUU",
c="UGAGGUAGUAGGUUGUAUGGUU")
ans = get_selfhyb_subseq(seqs, minlen=3, type="RNA")
length(ans)
ans[["a"]]
show_selfhyb_counts(ans)
show_selfhyb_lengths(ans)
}
Run the code above in your browser using DataLab