R/RcppExports.R

In MaciejDanko/hopit: Hierarchical Ordered Probit Models with Application to Reporting Heterogeneity

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

pstdnorm <- function(v) {
    .Call('_hopit_pstdnorm', PACKAGE = 'hopit', v)
}

dstdnorm <- function(v) {
    .Call('_hopit_dstdnorm', PACKAGE = 'hopit', v)
}

dstdlogis <- function(v) {
    .Call('_hopit_dstdlogis', PACKAGE = 'hopit', v)
}

pstdlogis <- function(v) {
    .Call('_hopit_pstdlogis', PACKAGE = 'hopit', v)
}

colpath <- function(m, v, offset) {
    .Call('_hopit_colpath', PACKAGE = 'hopit', m, v, offset)
}

glm2hopit <- function(latent_params, thresh_lambda, thresh_gamma, thresh_1_exp) {
    .Call('_hopit_glm2hopit', PACKAGE = 'hopit', latent_params, thresh_lambda, thresh_gamma, thresh_1_exp)
}

glm2hopit_nogamma <- function(latent_params, thresh_lambda, thresh_1_exp) {
    .Call('_hopit_glm2hopit_nogamma', PACKAGE = 'hopit', latent_params, thresh_lambda, thresh_1_exp)
}

ind_latent_thresh <- function(thresh_mm, thresh_lambda, thresh_gamma) {
    .Call('_hopit_ind_latent_thresh', PACKAGE = 'hopit', thresh_mm, thresh_lambda, thresh_gamma)
}

getThresholds <- function(thresh_mm, thresh_lambda, thresh_gamma, thresh_no_cov, thresh_start, thresh_1_exp) {
    .Call('_hopit_getThresholds', PACKAGE = 'hopit', thresh_mm, thresh_lambda, thresh_gamma, thresh_no_cov, thresh_start, thresh_1_exp)
}

LLFunc <- function(parameters, yi, latent_mm, thresh_mm, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, weights, thresh_start, thresh_1_exp, out_val) {
    .Call('_hopit_LLFunc', PACKAGE = 'hopit', parameters, yi, latent_mm, thresh_mm, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, weights, thresh_start, thresh_1_exp, out_val)
}

LLFuncIndv <- function(parameters, yi, latent_mm, thresh_mm, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, thresh_start, thresh_1_exp, weights) {
    .Call('_hopit_LLFuncIndv', PACKAGE = 'hopit', parameters, yi, latent_mm, thresh_mm, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, thresh_start, thresh_1_exp, weights)
}

LLGradFunc <- function(parameters, yi, YYY1, YYY2, YYY3, YYY4, latent_mm, thresh_mm, thresh_extd, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, thresh_start, thresh_1_exp, weights) {
    .Call('_hopit_LLGradFunc', PACKAGE = 'hopit', parameters, yi, YYY1, YYY2, YYY3, YYY4, latent_mm, thresh_mm, thresh_extd, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, thresh_start, thresh_1_exp, weights)
}

LLGradFuncIndv <- function(parameters, yi, YYY1, YYY2, YYY3, YYY4, latent_mm, thresh_mm, thresh_extd, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, thresh_start, thresh_1_exp, weights) {
    .Call('_hopit_LLGradFuncIndv', PACKAGE = 'hopit', parameters, yi, YYY1, YYY2, YYY3, YYY4, latent_mm, thresh_mm, thresh_extd, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, thresh_start, thresh_1_exp, weights)
}