# NOT RUN {
mat <- matrix(rnorm(2000),ncol=50)
nvecsSel<-eanatSelect( mat, selectorScale = 1.2, maxNEvec = 4 )
esol <- sparseDecom( mat, nvecs = nvecsSel )
print(paste("selected", nvecsSel,'pseudo-eigenvectors'))
# }
Run the code above in your browser using DataLab