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