This function gets the level of the network

getNetworkLevel(net)

Arguments

net

A phylogenetic network of class evonet.

Value

A numeric with the level of the network

Examples

net<- read.net(text= "((A:7,((B:2,C:2):3)#H1:2::0.6):3,(D:6,#H1:1::0.4):4);")
getNetworkLevel(net) ##returns 1
#> [1] 1