R/prec2part.R

In neuroconductor/DensParcorr: Dens-Based Method for Partial Correlation Estimation in Large Scale Brain Networks

Defines functions prec2part

Documented in prec2part

prec2part <- function(Precision)
{
  Precision = as.matrix(Precision)
  D.Prec = diag(diag(Precision)^(-.5))
  return(diag(2,dim(Precision)[1])-D.Prec%*%Precision%*%D.Prec)
}