# NOT RUN {
library(Twitmo)
# load tweets (included in package)
mytweets <- load_tweets(system.file("extdata", "tweets_20191027-141233.json", package = "Twitmo"))
# Pool tweets into longer pseudo-documents
pool <- pool_tweets(data = mytweets)
pooled_dfm <- pool$document_term_matrix
# use the ldatuner to compare different K
find_lda(pooled_dfm, search_space = seq(1, 10, 1), method = "Gibbs")
# }
Run the code above in your browser using DataLab