## Coercing a Parsimnet object to a network object.
data("dna.obj")
x<-dna.obj
p<-parsimnet(x)
n<-as.network(p)
#Fourth network (with only two edges)
p<-parsimnet(x,prob=.99)
n<-as.network(p,net=4)
Run the code above in your browser using DataLab