R/K0.R

Defines functions KO

KO <- function(xy){
  res <- exp(-0.5*rowSums(xy^2))/(2*pi)
  return((2*res-xy[,1]^2*res-xy[,2]^2*res)^2)
}

Try the sparr package in your browser

Any scripts or data that you put into this service are public.

sparr documentation built on March 31, 2023, 8:40 p.m.