isNormal {SiPhyNetwork}

#' Determine whether a phylogeny is Normal

Description

This function assesses whether a network is Normal

Usage

isNormal(net)

Arguments

net

A phylogenetic network of class evonet.

Value

A logical that is TRUE if the network is Normal

Examples

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