These functions return the depths or heights of nodes and tips.
Examples
z <- ape::read.evonet(text = '((1,((2,(3,(4)Y#H1)g)e,
(((Y#H1, 5)h,6)f)X#H2)c)a,((X#H2,7)d,8)b)r;')
nd <- node_depth_evonet(z)
z$edge.length <- nd[z$edge[,1]] - nd[z$edge[,2]]
ggevonet(z)