R/d2G_laplace.R

Defines functions d2G_laplace

d2G_laplace <-
function(x_i, x, d, inv_Sigma) {
  drop(crossprod(x,inv_Sigma%*%x))^(-1/2)*inv_Sigma[d,d] - drop(crossprod(x, inv_Sigma%*%x))^(-3/2)*drop(x%*%(inv_Sigma[,d]))^2
}

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.