if (FALSE) {
data("dna.obj")
x<-dna.obj
### Method for signature 'Dna'.
## statistical parsimony with 95
p<-parsimnet(x)
p
plot(p)
## statistical parsimony with 99
p<-parsimnet(x,prob=.99)
p
# plot the first network
plot(p,net=1)
## statistical parsimony with 99
#indels are coded as missing
p<-parsimnet(x,indels="m",prob=.99)
p
plot(p)
# statistical parsimony without connection limit.
p<-parsimnet(x,prob=NULL)
p
plot(p)
# plot the first network
plot(p,net=1)
### Method for signature 'dist'.
d<-distance(x)
seqlength<-length(x)
## statistical parsimony with 95
p<-parsimnet(d,seqlength)
p
plot(p)
### Method for signature 'matrix'.
d<-as.matrix(distance(x))
seqlength<-length(x)
## statistical parsimony with 95
p<-parsimnet(d,seqlength)
p
plot(p)
}
Run the code above in your browser using DataCamp Workspace