# Example 1:
mltree(matrix(c("R","K","E","A","M","S","P","P","G"), nrow=3,
dimnames = list(letters[1:3], 1:3)))$tree
# Example 2:
if (FALSE) {
a <- msa(sequences=c("RAPGT", "KMPGT", "ESGGT"), ids = letters[1:3])$ali
mltree(a)$tree
}
Run the code above in your browser using DataLab