data("dna.obj")
x<-dna.obj
## Display only polymorphic sites without gaps
image(x,all=FALSE,fifth=FALSE,show.names=TRUE,cex=0.6)
## Display only polymorphic sites with gaps
image(x,all=FALSE,fifth=TRUE,show.names=TRUE,cex=0.6)
if (FALSE) {
## Display entire sequences
image(x,all=FALSE,show.names=TRUE,cex=0.6)
}
Run the code above in your browser using DataLab