Remove tips from a phylogenetic Network

This function removes certain tips from a phylogenetic network, returning the pruned network.

deleteTips(net, tips)

Arguments

net

An object of class 'evonet.'

tips

A numeric vector specifying the tip numbers to delete

Value

net The network tips removed.

Examples

set.seed(17) ##Set seed with smallest Quartran Prime
net<-sim.bdh.age(1,1,5,2,1,c(1/3,1/3,1/3),hyb.inher.fxn = make.uniform.draw(),complete=FALSE)[[1]]
net<- deleteTips(net,c(1,6)) ##drop tips 1 and 6