tiny change

fjlstar · Sep 25, 2013 · fe1aec8 · fe1aec8
1 parent 74b4715
commit fe1aec8
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 9 deletions.
diff --git a/R/postprocess.R b/R/postprocess.R
@@ -422,7 +422,7 @@ jsviz <- function(text=character(), doc.id=integer(), word.id=integer(), topic.i
   if (N != length(topic.id)) print ("Number of topic.id elements not equal to number of word.id elements")
 
   # Get estimated probability matrices theta and phi, and main.topic for each document:
-  dat <- getProbs(word.id, doc.id, topic.id, vocab, alpha=0.01, beta=0.01, sort.topics="byDocs", K=K)
+  dat <- getProbs(word.id, doc.id, topic.id, vocab, alpha=0.01, beta=0.01, sort.topics="byTerms", K=K)
 
   # re-set topic.id and name it 'topics':
   topics <- dat$topic.id

diff --git a/inst/shiny/hover/rcloud/lda.json b/inst/shiny/hover/rcloud/lda.json