if (FALSE) {
library(saotd)
data <- raw_tweets
LDA_data <- tweet_topics(DataFrame = data,
clusters = 8,
method = "Gibbs",
set_seed = 1234,
num_terms = 10)
LDA_data
}
Run the code above in your browser using DataLab