R/RcppExports.R

In mdgc: Missing Data Imputation Using Gaussian Copulas

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

get_log_lm_terms_cpp <- function(lower, upper, code, multinomial, idx_non_zero_mean) {
    .Call(`_mdgc_get_log_lm_terms_cpp`, lower, upper, code, multinomial, idx_non_zero_mean)
}

eval_log_lm_terms <- function(ptr, indices, vcov, mu, maxpts, abs_eps, rel_eps, n_threads, comp_derivs, minvls, do_reorder = TRUE, use_aprx = FALSE) {
    .Call(`_mdgc_eval_log_lm_terms`, ptr, indices, vcov, mu, maxpts, abs_eps, rel_eps, n_threads, comp_derivs, minvls, do_reorder, use_aprx)
}

get_z_hat <- function(lower, upper, code, n_threads, multinomial) {
    .Call(`_mdgc_get_z_hat`, lower, upper, code, n_threads, multinomial)
}

pmvnorm <- function(lower, upper, mu, Sigma, maxvls, abs_eps, rel_eps, derivs, do_reorder = TRUE, use_aprx = FALSE) {
    .Call(`_mdgc_pmvnorm_to_R`, lower, upper, mu, Sigma, maxvls, abs_eps, rel_eps, derivs, do_reorder, use_aprx)
}

get_commutation <- function(n, m) {
    .Call(`_mdgc_get_commutation_to_R`, n, m)
}

get_commutation_vec <- function(n, m, transpose) {
    .Call(`_mdgc_get_commutation_vec`, n, m, transpose)
}

x_dot_X_kron_I <- function(x, X, l) {
    .Call(`_mdgc_x_dot_X_kron_I_wrap`, x, X, l)
}

impute <- function(lower, upper, code, Sigma, mea, truth, margs, multinomial, rel_eps, abs_eps, maxit, passed_names, outer_names, n_threads, do_reorder, minvls, use_aprx = FALSE) {
    .Call(`_mdgc_impute`, lower, upper, code, Sigma, mea, truth, margs, multinomial, rel_eps, abs_eps, maxit, passed_names, outer_names, n_threads, do_reorder, minvls, use_aprx)
}

lower_tri_inner <- function(x, idx, jacob, rhs) {
    .Call(`_mdgc_lower_tri_inner`, x, idx, jacob, rhs)
}

eval_multinomial_prob <- function(icase, means) {
    .Call(`_mdgc_eval_multinomial_prob`, icase, means)
}

eval_multinomial_prob_gr <- function(icase, means) {
    .Call(`_mdgc_eval_multinomial_prob_gr`, icase, means)
}

multinomial_find_means <- function(probs, rel_eps = 3.000214e-13, max_it = 100L, c1 = .0001, c2 = .9) {
    .Call(`_mdgc_multinomial_find_means`, probs, rel_eps, max_it, c1, c2)
}