data("dna.obj")
x<-dna.obj[4:7,13:22,as.matrix=FALSE]
## Simple indel coding.
distance(x,indels="s")
## Gaps as 5th state characters.
distance(x,indels="5")
## Gaps as missing characters.
distance(x,indels="m")
if (FALSE) {
## Using 'subset'.
x<-dna.obj[4:10,13:22,as.matrix=FALSE]
distance(x, NULL)
distance(x, subset=c(1))
distance(x, subset=c(2,4))
}
Run the code above in your browser using DataLab