R/cor2pcor.R

In pchc: Bayesian Network Learning with the PCHC and Related Algorithms

Defines functions cor2pcor

Documented in cor2pcor

cor2pcor <- function(R){
  a <- solve(R)
  d <- dim(R)[1]
  com <- sqrt( diag(a) )
  a <- a / outer(-com, com, "*")
  diag(a) <- 1
  a
}

Try the pchc package in your browser