Nothing
localSCovarianceGradients <-
function(model) {
gK = -model$d*model$invK_uu + model$invK_uu%*%model$S%*%model$invK_uu
gK = gK * .5
return (gK)
}
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.