Nothing
dLambdadSM <-
function(x, beta) # for variance estimation
{
(-pnorm(t(x)%*%beta)*dnorm(t(x)%*%beta)*(t(x)%*%beta)-
dnorm(t(x)%*%beta)^2)/pnorm(t(x)%*%beta)/pnorm(t(x)%*%beta)
}
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.