This function computes the partial correlation coefficient.
compute_par(pre_inv)
pre_inv
This is an inverse covariance matrix.
A p*p partial correlation matrix.