Update RCIT.R

ericstrobl · Sep 2, 2018 · 8dc7d5f · 8dc7d5f
1 parent 072b365
commit 8dc7d5f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/RCIT.R b/R/RCIT.R
@@ -81,7 +81,8 @@ RCIT <- function(x,y,z=NULL,approx="lpd4",num_f=50,num_f2=5, seed=NULL){
 
  Czz = cov(f_z);
 
- i_Czz = ginv(Czz+diag(num_f)*1E-10); #requires library(MASS)
+ i_Czz = chol2inv(chol( Czz + diag(num_f) * 1e-10))
+ # i_Czz = ginv(Czz+diag(num_f)*1E-10); #requires library(MASS)
  Cxz=cov(f_x,f_z);
  Czy=cov(f_z,f_y);