data(woodmouse)
woodmouse <- phyDat(woodmouse)
tmpfile <- normalizePath(system.file(
"extdata/trees/RAxML_bootstrap.woodmouse", package="phangorn"))
boot_trees <- read.tree(tmpfile)
dm <- dist.ml(woodmouse)
tree <- upgma(dm)
nnet <- neighborNet(dm)
tree <- addConfidences(tree, boot_trees)
nnet <- addConfidences(nnet, boot_trees)
plot(tree, show.node.label=TRUE)
plot(nnet, show.edge.label=TRUE)
Run the code above in your browser using DataLab