# NOT RUN {
## Nodes will define the nodes of a five tips tree
nodes<-matrix(nrow=4,ncol=2)
nodes[1,]<-c(-5,-4)
nodes[2,]<-c(1,-1)
nodes[3,]<-c(-3,2)
nodes[4,]<-c(-2,3)
## Now we can build the tree and plot it.
tree1<-treeshape(nodes)
plot(tree1)
## Computation of the sackin index for the tree :
sackin(tree1)
## Label will define the names of the tips
label=c("a", "b", "c", "d", "e")
tree2<-treeshape(nodes, label)
plot(tree1, tree2)
# }
Run the code above in your browser using DataLab