KO <- function(xy){ res <- exp(-0.5*rowSums(xy^2))/(2*pi) return((2*res-xy[,1]^2*res-xy[,2]^2*res)^2) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.