Update random_fourier_features.R

ericstrobl · Sep 2, 2018 · 072b365 · 072b365
1 parent 420617b
commit 072b365
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/random_fourier_features.R b/R/random_fourier_features.R
@@ -30,8 +30,8 @@ random_fourier_features <- function(x,w=NULL,b=NULL,num_f=NULL,sigma=NULL,seed=N
  #w=rbind(w,(1/sigma)*matrix(rnorm((num_f-nrow(w))*c),num_f-nrow(w),c));
  #b=rbind(b,repmat(2*pi*runif(num_f-nrow(b)),1,r));
  #}
- #feat = sqrt(2)*t(cos(w[1:num_f,1:c]%*%t(x)+b[1:num_f,]));
- feat = sqrt(2)*t(log(1+exp(w[1:num_f,1:c]%*%t(x)+b[1:num_f,])));
+ feat = sqrt(2)*t(cos(w[1:num_f,1:c]%*%t(x)+b[1:num_f,]));
+ #feat = sqrt(2)*t(log(1+exp(w[1:num_f,1:c]%*%t(x)+b[1:num_f,])));
 
  out=list(feat=feat,w=w,b=b);
  return(out)