R/sim2.bd.R

In tanja819/TreeSim: Simulating Phylogenetic Trees

sim2.bd <-
function(n,age, lambda,mu,K){
	phy2 <- sim2.bd.origin(n,age,lambda,mu,K)
	if (class(phy2)=="phylo") {
		#Tanja 9.7.: include root age!
		phy2<-collapse.singles(phy2)
	}
	phy2
	}