R/ai.R

Defines functions ai

ai <-function(i,l,mu,psi){
	temp<-(l[i]-mu[i]-psi[i])^2
	out<-sqrt(temp + 4 * l[i]*psi[i])
	#print("A")
	#print(out)
	out
	}

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.