Update RCIT.R

ericstrobl · Sep 1, 2018 · 82f2cb2 · 82f2cb2
1 parent 9a21d1c
commit 82f2cb2
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/RCIT.R b/R/RCIT.R
@@ -34,8 +34,6 @@ RCIT <- function(x,y,z=NULL,approx="lpd4",num_f=25,num_f2=5, seed=NULL){
  y=matrix2(y);
  z=matrix2(z);
 
- y = cbind(y,z)
-
  z=z[,apply(z,2,sd)>0];
  z=matrix2(z);
  d=ncol(z);
@@ -67,6 +65,9 @@ RCIT <- function(x,y,z=NULL,approx="lpd4",num_f=25,num_f2=5, seed=NULL){
  z[,t] = pnorm(ecdf(z[,t])(z[,t]));
  }
 
+
+ y = cbind(y,z)
+
 
  four_z = random_fourier_features(z[,1:d],num_f=num_f,sigma=median(c(t(dist(z[1:r1,])))), seed = seed );
  four_x = random_fourier_features(x,num_f=num_f2,sigma=median(c(t(dist(x[1:r1,])))), seed = seed );