R/Sobel.R

Defines functions Sobel

#' @export
Sobel=function(a, b){
  zz=a*b/sqrt(a^2+b^2)
  zz[a==0&b==0]=0
  pp=2*pnorm(-abs(zz))
  return(list(pp=pp,zz=zz))
}
roqe/MACtest documentation built on Aug. 6, 2023, 9:53 a.m.