data(Laurasiatherian)
set.seed(1)
bs <- bootstrap.phyDat(Laurasiatherian, pratchet, k=1, bs=100, multicore=FALSE, trace=0)
class(bs) <- 'multiPhylo'
cnet = consensusNet(bs, .26)
plot(cnet, show.edge.label=TRUE)
if(require(rgl)){
open3d()
plot(cnet, show.tip.label=FALSE, show.nodes=TRUE)
}
set.seed(1)
tree1 = rtree(10, rooted=FALSE)
sp = as.splits(rNNI(tree1, n=10))
net = as.networx(sp)
plot(net)
Run the code above in your browser using DataLab