# Example 1:
aln <- matrix(c("A", "P", "G", "W", "-", "-",
"-", "A", "G", "W", "C", "-",
"-", "-", "C", "W", "G", "A" ), nrow = 3, byrow =TRUE)
gapless_msa(aln)
# Example 2:
if (FALSE) gapless_msa(msa(sequences = c("APGW", "AGWC", "CWGA"),
ids = c("a", "b", "c"))$ali)
Run the code above in your browser using DataLab