# NOT RUN {
res = LDARep(docs = reuters_docs, vocab = reuters_vocab, n = 4, K = 10, num.iterations = 30)
topics = mergeTopics(res, vocab = reuters_vocab)
jacc = jaccardTopics(topics, atLeast = 2)
sim = getSimilarity(jacc)
dend = dendTopics(jacc)
dend2 = dendTopics(sim)
# }
# NOT RUN {
plot(dend)
plot(dendTopics(jacc, ind = c("Rep2", "Rep3")))
# }
# NOT RUN {
pruned = pruneSCLOP(dend)
# }
# NOT RUN {
plot(dend, pruning = pruned)
plot(dend, pruning = pruned, pruning.par = list(type = "color"))
plot(dend, pruning = pruned, pruning.par = list(type = "both", lty = 1, lwd = 2, col = "red"))
dend2 = dendTopics(jacc, ind = c("Rep2", "Rep3"))
plot(dend2, pruning = pruneSCLOP(dend2), pruning.par = list(lwd = 2, col = "darkgrey"))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab