R/RcppExports.R

In disclapmix: Discrete Laplace Mixture Inference using the EM Algorithm

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

disclapglm_linkfun <- function(mu) {
    .Call('_disclapmix_disclapglm_linkfun', PACKAGE = 'disclapmix', mu)
}

disclapglm_linkinv <- function(eta) {
    .Call('_disclapmix_disclapglm_linkinv', PACKAGE = 'disclapmix', eta)
}

disclapglm_mu_eta <- function(eta) {
    .Call('_disclapmix_disclapglm_mu_eta', PACKAGE = 'disclapmix', eta)
}

disclapglm_varfunc <- function(mu) {
    .Call('_disclapmix_disclapglm_varfunc', PACKAGE = 'disclapmix', mu)
}

disclapglm_loglikeh <- function(mu, y) {
    .Call('_disclapmix_disclapglm_loglikeh', PACKAGE = 'disclapmix', mu, y)
}

disclapglm_deviance <- function(y, mu, wt) {
    .Call('_disclapmix_disclapglm_deviance', PACKAGE = 'disclapmix', y, mu, wt)
}

rcpp_create_design_matrix <- function(x, clusters) {
    .Call('_disclapmix_rcpp_create_design_matrix', PACKAGE = 'disclapmix', x, clusters)
}

rcpp_create_new_weight_vector <- function(vic, loci) {
    .Call('_disclapmix_rcpp_create_new_weight_vector', PACKAGE = 'disclapmix', vic, loci)
}

rcpp_create_response_vector <- function(x, y) {
    .Call('_disclapmix_rcpp_create_response_vector', PACKAGE = 'disclapmix', x, y)
}

rcpp_calculate_wic <- function(x, y, p, tau) {
    .Call('_disclapmix_rcpp_calculate_wic', PACKAGE = 'disclapmix', x, y, p, tau)
}

rcpp_calculate_vic <- function(wic) {
    .Call('_disclapmix_rcpp_calculate_vic', PACKAGE = 'disclapmix', wic)
}

rcpp_calculate_haplotype_probabilities <- function(new_data, y, p, tau) {
    .Call('_disclapmix_rcpp_calculate_haplotype_probabilities', PACKAGE = 'disclapmix', new_data, y, p, tau)
}

rcpp_calculate_haplotype_probabilities_se <- function(new_data, y, theta_clusters, theta_loci, vcov, tau) {
    .Call('_disclapmix_rcpp_calculate_haplotype_probabilities_se', PACKAGE = 'disclapmix', new_data, y, theta_clusters, theta_loci, vcov, tau)
}

rcpp_calculate_haplotype_probabilities_clusterwise <- function(new_data, y, p, tau) {
    .Call('_disclapmix_rcpp_calculate_haplotype_probabilities_clusterwise', PACKAGE = 'disclapmix', new_data, y, p, tau)
}

rcpp_simulate <- function(nsim, y, tau_cumsum, disclap_parameters) {
    .Call('_disclapmix_rcpp_simulate', PACKAGE = 'disclapmix', nsim, y, tau_cumsum, disclap_parameters)
}

rcpp_find_haplotype_in_matrix <- function(subpop, h) {
    .Call('_disclapmix_rcpp_find_haplotype_in_matrix', PACKAGE = 'disclapmix', subpop, h)
}