if (FALSE) {
# MCMC samples and BIC vector
mcmc_outputs <- runMCMCChains(
X,
n_chains,
R,
thin,
batch_vec,
type
)
# Note that in this toy example we have not applied a burn in
psm <- createSimilarityMat(mcmc_outputs[[1]]$samples)
VI.lb(mcmc_outputs[[1]]$samples[1, ], psm)
}
Run the code above in your browser using DataLab