## Not run: ------------------------------------
# library(Rlda)
# # Read the SP500 data
# data(sp500)
# # Create size
# spSize <- as.data.frame(matrix(100,
# ncol = ncol(sp500),
# nrow = nrow(sp500)))
# # 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.binomial(data = sp500, pop = spSize, n_community = 10,
# alpha0 = alpha0, alpha1 = alpha1, gamma = gamma,
# n_gibbs = 500, ll_prior = TRUE, display_progress = TRUE)
#
## ---------------------------------------------
Run the code above in your browser using DataLab