Sparse and Regularized Discriminant Analysis in R