Update sparse_logistic_pca.R