R/RcppExports.R

In dexterMST: CML and Bayesian Calibration of Multistage Tests

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

fast_factor <- function(x, as_int) {
    .Call(`_dexterMST_fast_factor`, x, as_int)
}

fast_factor_lev <- function(x, levs, as_int) {
    .Call(`_dexterMST_fast_factor_lev`, x, levs, as_int)
}

bid_c <- function(test_id, booklet_id, test_lev, booklet_lev) {
    .Call(`_dexterMST_bid_c`, test_id, booklet_id, test_lev, booklet_lev)
}

is_person_booklet_sorted <- function(booklet_id, person_id) {
    .Call(`_dexterMST_is_person_booklet_sorted`, booklet_id, person_id)
}

mutate_booklet_score <- function(person_id, booklet_id, item_score) {
    .Call(`_dexterMST_mutate_booklet_score`, person_id, booklet_id, item_score)
}

make_booklets_unsafe <- function(person_id, booklet_id, module_nbr, item_id, item_score, booklet_score, include_rsp, bk_nmod) {
    .Call(`_dexterMST_make_booklets_unsafe`, person_id, booklet_id, module_nbr, item_id, item_score, booklet_score, include_rsp, bk_nmod)
}

suf_stats_nrm_c <- function(booklet_id, booklet_score, item_id, item_score, nit, max_score) {
    .Call(`_dexterMST_suf_stats_nrm_c`, booklet_id, booklet_score, item_id, item_score, nit, max_score)
}

im_booklet_score <- function(person_id, item_score) {
    .Call(`_dexterMST_im_booklet_score`, person_id, item_score)
}

suf_stats_im_c <- function(booklet_score, item_id, item_score, nit, max_score) {
    .Call(`_dexterMST_suf_stats_im_c`, booklet_score, item_id, item_score, nit, max_score)
}

is_connected_C <- function(A) {
    .Call(`_dexterMST_is_connected_C`, A)
}

Expect <- function(b, a, bfirst, blast, bmax, nmod, brouting, mnit, mod_min, mod_max, scoretab, E) {
    invisible(.Call(`_dexterMST_Expect`, b, a, bfirst, blast, bmax, nmod, brouting, mnit, mod_min, mod_max, scoretab, E))
}

NR <- function(b, a, bfirst, blast, bmax, nmod, brouting, mnit, mod_min, mod_max, scoretab, E, H) {
    invisible(.Call(`_dexterMST_NR`, b, a, bfirst, blast, bmax, nmod, brouting, mnit, mod_min, mod_max, scoretab, E, H))
}

dirichlet <- function(alpha, out) {
    invisible(.Call(`_dexterMST_dirichlet`, alpha, out))
}

calibrate_Bayes <- function(a, first, last, bfirst, blast, bmax, bmin, nmod, brouting, mnit, mod_min, mod_max, itb, itnb, sufI, scoretab, b, fixed_b, from, step, ndraws, prior_eta = 0.5, prior_rho = 0.5, prior_nu = 0.1, prior_sigma = 0) {
    .Call(`_dexterMST_calibrate_Bayes`, a, first, last, bfirst, blast, bmax, bmin, nmod, brouting, mnit, mod_min, mod_max, itb, itnb, sufI, scoretab, b, fixed_b, from, step, ndraws, prior_eta, prior_rho, prior_nu, prior_sigma)
}

ittotmat_mst <- function(b, a, c, first, last, bmin, bmax, nmod, brouting, mnit, mod_min, mod_max) {
    .Call(`_dexterMST_ittotmat_mst`, b, a, c, first, last, bmin, bmax, nmod, brouting, mnit, mod_min, mod_max)
}

elsym_C <- function(routing, b, a, first, last, mod_min, mod_max, mnit, max_score, item1_first = -1L, aij = 1L, item2_first = -1L, akl = 1L) {
    .Call(`_dexterMST_elsym_C`, routing, b, a, first, last, mod_min, mod_max, mnit, max_score, item1_first, aij, item2_first, akl)
}

prof_enorm <- function(b, a, first, last, routing, mnit, mod_min, mod_max, max_score, AB) {
    .Call(`_dexterMST_prof_enorm`, b, a, first, last, routing, mnit, mod_min, mod_max, max_score, AB)
}