Change LDA to use R sparseLDA library code