R/intp1.R

intp1<-function(t,lambda,mu){
	out <- 1-exp(-(lambda-mu)*t)
	out <- out /(lambda-mu*exp(-(lambda-mu)*t))
	out
	}
tanja819/TreeSim documentation built on May 31, 2019, 2:57 a.m.