## Not run:
# mod <- stm(poliblog5k.docs, poliblog5k.voc, K=25,
# prevalence=~rating, data=poliblog5k.meta,
# max.em.its=2, init.type="Spectral")
# #please don't run a model with 2 iterations
# #this is done here to make it run quickly.
# toLDAvis(mod=mod, docs=poliblog5k.docs)
#
# ## End(Not run)
Run the code above in your browser using DataLab