R/prec2part.R

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)
}

Try the DensParcorr package in your browser

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

DensParcorr documentation built on May 2, 2019, 3:33 p.m.