# NOT RUN {
# }
# NOT RUN {
library(Rlda)
# Presence
data(presence)
# Set seed
set.seed(9842)
# Hyperparameters for each prior distribution
gamma <- 0.01
alpha0 <- 0.01
alpha1 <- 0.01
# Execute the LDA for the Bernoulli entry
res <- rlda.bernoulliMH(data=presence,loc.id=seq(1,nrow(presence)),
n_community=5, alpha0=0.01, alpha1=0.99, gamma=0.1,
n_gibbs=1000, nadapt=1000, ll_prior = TRUE, display_progress = TRUE)
# }
Run the code above in your browser using DataLab