Nothing
whiteKernParamInit <-
function (kern) {
kern$variance <- exp(-2)
kern$nParams <- 1
kern$paramNames <- c("variance")
kern$transforms <- list(list(index=c(1), type="positive"))
kern$isStationary <- TRUE
return (kern)
}
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.