# NOT RUN {
# }
# NOT RUN {
library(Rlda)
# Set seed
set.seed(5874)
# Hyperparameters for each prior distribution
gamma <- 0.01
alpha0 <- 0.01
alpha1 <- 0.01
# Execute the LDA for the Binomial entry
res<- rlda.binomialVB(data=tmp, loc.id='loc.id', n_community=10,
alpha0=0.01, alpha1=0.99, gamma=0.1, maxit=100, thresh=0.0001)
# }
Run the code above in your browser using DataLab