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 }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.