# First three sequences translate to MFITP*; the last sequence is MF-TP*
rna <- RNAStringSet(c("AUGUUCAUCACCCCCUAA", "AUGUUCAUAACUCCUUGA",
"AUGUUCAUUACACCGUAG", "AUGUUUACCCCAUAA"))
RNA <- AlignSeqs(rna)
BrowseSequences(RNA) # incorrect gap position
RNA <- AlignTranslation(rna)
BrowseSequences(RNA) # correct gap position
Run the code above in your browser using DataLab