# NOT RUN {
data(training)
summary.c <- FitLDAModel(training.data=training, nclust=3,
kde.nbins=100, iters=50, inner.iters=50)
pred <- Predict(predict.data=training, summary.c=summary.c)
# }
Run the code above in your browser using DataLab