powered by
icawhiten(Xin, n.comp, verbose = FALSE)
mat <- matrix(c(rep(1,100),rep(0,200)),ncol=50) wmat<-icawhiten( mat, 2 )
Run the code above in your browser using DataLab