R/intp1.R

intp1<-function(t,lambda,mu){
	out <- 1-exp(-(lambda-mu)*t)
	out <- out /(lambda-mu*exp(-(lambda-mu)*t))
	out
	}

Try the TreeSim package in your browser

Any scripts or data that you put into this service are public.

TreeSim documentation built on May 2, 2019, 3:23 a.m.