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)
open3d()
plot(cnet, show.tip.label=FALSE, show.nodes=TRUE)
set.seed(1)
tree1 = rtree(20, rooted=FALSE)
sp = as.splits(rNNI(tree1, n=10))
net = as.networx(sp)
open3d()
plot(net)
Run the code above in your browser using DataLab