Sparse Discriminant Analysis in R