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)
}
tilmandavies/sparr documentation built on March 21, 2023, 11:34 a.m.