data("dna.obj")
x<-dna.obj
## Coercing a Dna object to a phyDat object.
# Simple indel coding.
phyd<-as.phyDat(x)
phyd
# Gaps as 5th state characters.
phyd<-as.phyDat(x,indels="5")
phyd
# Gaps as 5th state characters.
phyd<-as.phyDat(x,indels="m")
phyd
Run the code above in your browser using DataLab