data("dna.obj")
x<-dna.obj
## Longest sequence length
length(x)
## Total number of haplotypes
h<-haplotype(x)
length(h)
## Length of network(s)
p<-parsimnet(x,prob=.95)
# length of the network
length(p)
p<-parsimnet(x,prob=.99)
# length of the networks
length(p)
Run the code above in your browser using DataLab