# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
ELBO_calculator_c <- function(y, D, X, ssq_var, mu, alpha, ssq, sbsq, pip) {
.Call(`_covdepGE_ELBO_calculator_c`, y, D, X, ssq_var, mu, alpha, ssq, sbsq, pip)
}
cavi_c <- function(y, D, X, mu0, alpha0, ssq, sbsq, pip, alpha_tol, max_iter) {
.Call(`_covdepGE_cavi_c`, y, D, X, mu0, alpha0, ssq, sbsq, pip, alpha_tol, max_iter)
}
grid_search_c <- function(y, D, X, mu, alpha, ssq, sbsq, pip, alpha_tol, max_iter) {
.Call(`_covdepGE_grid_search_c`, y, D, X, mu, alpha, ssq, sbsq, pip, alpha_tol, max_iter)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.