Nothing
KO <- function(xy){
res <- exp(-0.5*rowSums(xy^2))/(2*pi)
return((2*res-xy[,1]^2*res-xy[,2]^2*res)^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.