Nothing
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
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.