R/RcppExports.R

Defines functions rtn1 log_f_post_b_cpp log_f_post_a_cpp log_f_post_Omega_cpp log_f_post_Lambda_jj_cpp get_latents_cpp dmvnrm_arma

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

dmvnrm_arma <- function(x, mean, sigma, logd = FALSE) {
    .Call('_BNPMIXcluster_dmvnrm_arma', PACKAGE = 'BNPMIXcluster', x, mean, sigma, logd)
}

get_latents_cpp <- function(Y, var_type, mu_Z, sigma_Z, Z_ini, verbose = FALSE) {
    .Call('_BNPMIXcluster_get_latents_cpp', PACKAGE = 'BNPMIXcluster', Y, var_type, mu_Z, sigma_Z, Z_ini, verbose)
}

log_f_post_Lambda_jj_cpp <- function(sigma_jj, d_0_z, d_1_z, Z, mu_Z, sigma_Z, sampling_prob) {
    .Call('_BNPMIXcluster_log_f_post_Lambda_jj_cpp', PACKAGE = 'BNPMIXcluster', sigma_jj, d_0_z, d_1_z, Z, mu_Z, sigma_Z, sampling_prob)
}

log_f_post_Omega_cpp <- function(Omega, Z, mu_Z, sampling_prob, Lambda) {
    .Call('_BNPMIXcluster_log_f_post_Omega_cpp', PACKAGE = 'BNPMIXcluster', Omega, Z, mu_Z, sampling_prob, Lambda)
}

log_f_post_a_cpp <- function(a, b, alpha, d_0_a, d_1_a, mu_star_n_r) {
    .Call('_BNPMIXcluster_log_f_post_a_cpp', PACKAGE = 'BNPMIXcluster', a, b, alpha, d_0_a, d_1_a, mu_star_n_r)
}

log_f_post_b_cpp <- function(b, a, d_0_b, d_1_b, mu_star_n_r) {
    .Call('_BNPMIXcluster_log_f_post_b_cpp', PACKAGE = 'BNPMIXcluster', b, a, d_0_b, d_1_b, mu_star_n_r)
}

rtn1 <- function(mean, sd, low, high) {
    .Call('_BNPMIXcluster_rtn1', PACKAGE = 'BNPMIXcluster', mean, sd, low, high)
}

# Register entry points for exported C++ functions
methods::setLoadAction(function(ns) {
    .Call('_BNPMIXcluster_RcppExport_registerCCallable', PACKAGE = 'BNPMIXcluster')
})
christianu7/BNPMIXcluster documentation built on Sept. 10, 2022, 11:40 p.m.