R/RcppExports.R

In mixture: Mixture Models for Clustering and Classification

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

dmg <- function(x, mu, Sig, LOG = FALSE) {
    .Call(`_mixture_dmg`, x, mu, Sig, LOG)
}

dmgh <- function(x, mu, alpha, Sig, omega, lambda, LOG = FALSE) {
    .Call(`_mixture_dmgh`, x, mu, alpha, Sig, omega, lambda, LOG)
}

dmst <- function(x, mu, alpha, Sig, v, LOG = FALSE) {
    .Call(`_mixture_dmst`, x, mu, alpha, Sig, v, LOG)
}

dmvg <- function(x, mu, alpha, Sig, gamma, LOG = FALSE) {
    .Call(`_mixture_dmvg`, x, mu, alpha, Sig, gamma, LOG)
}

main_loop_gh <- function(X, G, model_id, model_type, in_zigs, in_nmax, in_l_tol, in_m_iter_max, in_m_tol, anneals, t_burn = 5L) {
    .Call(`_mixture_main_loop_gh`, X, G, model_id, model_type, in_zigs, in_nmax, in_l_tol, in_m_iter_max, in_m_tol, anneals, t_burn)
}

gh_e_step_internal <- function(X, G, model_id, model_type, in_m_obj, init_zigs, in_nu = 1.0) {
    .Call(`_mixture_gh_e_step_internal`, X, G, model_id, model_type, in_m_obj, init_zigs, in_nu)
}

main_loop <- function(X, G, model_id, model_type, in_zigs, in_nmax, in_l_tol, in_m_iter_max, in_m_tol, anneals, t_burn = 5L) {
    .Call(`_mixture_main_loop`, X, G, model_id, model_type, in_zigs, in_nmax, in_l_tol, in_m_iter_max, in_m_tol, anneals, t_burn)
}

e_step_internal <- function(X, G, model_id, model_type, in_m_obj, init_zigs, in_nu = 1.0) {
    .Call(`_mixture_e_step_internal`, X, G, model_id, model_type, in_m_obj, init_zigs, in_nu)
}

main_loop_st <- function(X, G, model_id, model_type, in_zigs, in_nmax, in_l_tol, in_m_iter_max, in_m_tol, anneals, latent_step = "standard", t_burn = 5L) {
    .Call(`_mixture_main_loop_st`, X, G, model_id, model_type, in_zigs, in_nmax, in_l_tol, in_m_iter_max, in_m_tol, anneals, latent_step, t_burn)
}

st_e_step_internal <- function(X, G, model_id, model_type, in_m_obj, init_zigs, in_nu = 1.0) {
    .Call(`_mixture_st_e_step_internal`, X, G, model_id, model_type, in_m_obj, init_zigs, in_nu)
}

main_loop_t <- function(X, G, model_id, model_type, in_zigs, in_nmax, in_l_tol, in_m_iter_max, in_m_tol, anneals, t_burn = 5L) {
    .Call(`_mixture_main_loop_t`, X, G, model_id, model_type, in_zigs, in_nmax, in_l_tol, in_m_iter_max, in_m_tol, anneals, t_burn)
}

t_e_step_internal <- function(X, G, model_id, model_type, in_m_obj, init_zigs, in_nu = 1.0) {
    .Call(`_mixture_t_e_step_internal`, X, G, model_id, model_type, in_m_obj, init_zigs, in_nu)
}

main_loop_vg <- function(X, G, model_id, model_type, in_zigs, in_nmax, in_l_tol, in_m_iter_max, in_m_tol, anneals, latent_step = "standard", t_burn = 5L) {
    .Call(`_mixture_main_loop_vg`, X, G, model_id, model_type, in_zigs, in_nmax, in_l_tol, in_m_iter_max, in_m_tol, anneals, latent_step, t_burn)
}

vg_e_step_internal <- function(X, G, model_id, model_type, in_m_obj, init_zigs, in_nu = 1.0) {
    .Call(`_mixture_vg_e_step_internal`, X, G, model_id, model_type, in_m_obj, init_zigs, in_nu)
}