update with more pngs used in blog post

jwijffels · Nov 9, 2016 · 2ce29bb · 2ce29bb
1 parent 203704d
commit 2ce29bb
Show file tree

Hide file tree

Showing 6 changed files with 4 additions and 2 deletions.
diff --git a/02_visualise_ceta_treaty.R b/02_visualise_ceta_treaty.R
@@ -29,6 +29,10 @@ ceta_topics <- LDA(x = dtm[, topterms], k = 5, method = "VEM",
                    control = list(alpha = 0.1, estimate.alpha = TRUE, seed = as.integer(10:1), 
                                   verbose = FALSE, nstart = 10, save = 0, best = TRUE))
 ceta_topic_terms <- predict(ceta_topics, type = "terms", min_posterior = 0.01)
+ceta_topic_terms$topic3
+scores <- predict(ceta_topics, newdata = dtm[, topterms], type = "topics")
+table(scores$topic)
+
 
 ######################################################################################
 ## Visualise
@@ -42,8 +46,6 @@ x <- ceta$ceta_nouns[, list(n = .N), by = list(word.lemma)]
 x <- x[order(x$n, decreasing = TRUE), ]
 x <- as.data.frame(x)
 
-
-
 library(wordcloud)
 wordcloud(words = x$word.lemma, freq = x$n, max.words = 150, random.order = FALSE,
           colors = brewer.pal(8, "Dark2"))

diff --git a/article_snapshot.png b/article_snapshot.png
diff --git a/ceta_networkvis.png b/ceta_networkvis.png
diff --git a/ceta_reorganisation.png b/ceta_reorganisation.png
diff --git a/ceta_screenshot.png b/ceta_screenshot.png
diff --git a/ceta_wordclouds.png b/ceta_wordclouds.png