R/lambFun.R

Defines functions lambFun

lambFun<-function(k,N,lamb0,model){
	if (model== 0){f <- lamb0}
	else if (model== -1){
		if (k>N) {f<-0}
		else {
		f <- lamb0*(1-k/N)}}
	else {	f <- lamb0*k^(-model)}
	f
}

Try the TreePar package in your browser

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

TreePar documentation built on May 1, 2019, 9:20 p.m.