Create sparse_logistic_pca.R