Nothing
ResExpG <-
function(r) { zero <- 1e-6
num <- dnorm(r); den <- 1-pnorm(r)
val <- num/den; ind <- (den < zero) ; val[ind] <- r[ind]
val}
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.