Create a more Plotting-Friendly phylogenetic Network

This function creates a more plotting-friendly evonet object to be used with the plot() function

plottable.net(net, tol = 1e-08)

Arguments

net

An object of class evonet.

tol

a tolerance to account for floating point imprecision. any values smaller than tol are considered to be zero.

Value

a network to be used with the plot() function

Examples

#' set.seed(17) ##smallest Quartan prime as seed
##Generate a tree with extinct leaves
net<-sim.bdh.age(1,1,5,2,1,c(1/3,1/3,1/3),hyb.inher.fxn = make.uniform.draw(),complete=TRUE)[[1]]
plot(plottable.net(net))
#> Error in phy$tip.label: $ operator is invalid for atomic vectors