Nothing
d2G_laplace <-
function(x_i, x, d, inv_Sigma) {
drop(crossprod(x,inv_Sigma%*%x))^(-1/2)*inv_Sigma[d,d] - drop(crossprod(x, inv_Sigma%*%x))^(-3/2)*drop(x%*%(inv_Sigma[,d]))^2
}
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.