R/dG_laplace.R

Defines functions dG_laplace

dG_laplace <-
function(x_i, x, d, inv_Sigma) {
  drop(x%*%inv_Sigma[,d])/drop(sqrt(crossprod(x, inv_Sigma%*%x)))
}

Try the ivaBSS package in your browser

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

ivaBSS documentation built on May 19, 2022, 5:09 p.m.