R/RcppExports.R

Defines functions sampleIM PV_slow PV_sve PVrecycle IJ_c theta_EAP_GH_c theta_wle_sec escore_wle theta_mle_sec Escore_C sampleNRM2_item sampleNRM2_test ss_table_im_C ss_table_enorm_C ittotmat_C NR_booklets_mean E_booklets_mean meanElSym calibrate_Bayes_C NR_booklets E_booklets ittotmat0_C possible_scores_C ElSym_C tia_C score_tab_single suf_stats_im suf_stats_nrm parms_is_superset_matrix is_person_booklet_sorted polytomize_C get_design_C merge_booklets summarise_booklet_score mutate_booklet_score make_booklets_matrix make_booklets_summed_matrix make_booklets_summed make_booklets ds_connected_groups fill_resp_matrix ppoint fast_factor_lev fast_factor

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

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

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

ppoint <- function(x) {
    .Call(`_dexter_ppoint`, x)
}

fill_resp_matrix <- function(person_id, item_id, item_score, out) {
    invisible(.Call(`_dexter_fill_resp_matrix`, person_id, item_id, item_score, out))
}

ds_connected_groups <- function(a) {
    .Call(`_dexter_ds_connected_groups`, a)
}

make_booklets <- function(person_id, item_id, item_score, booklet_id, booklet_score, merged) {
    .Call(`_dexter_make_booklets`, person_id, item_id, item_score, booklet_id, booklet_score, merged)
}

make_booklets_summed <- function(person_id, booklet_id, item_id, item_score, merged) {
    .Call(`_dexter_make_booklets_summed`, person_id, booklet_id, item_id, item_score, merged)
}

make_booklets_summed_matrix <- function(mtx, ncol, nrow) {
    .Call(`_dexter_make_booklets_summed_matrix`, mtx, ncol, nrow)
}

make_booklets_matrix <- function(mtx, ncol, nrow) {
    .Call(`_dexter_make_booklets_matrix`, mtx, ncol, nrow)
}

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

summarise_booklet_score <- function(person_id, booklet_id, item_id, item_score) {
    .Call(`_dexter_summarise_booklet_score`, person_id, booklet_id, item_id, item_score)
}

merge_booklets <- function(booklet_id, person_id, ds_booklet_id, maxb) {
    .Call(`_dexter_merge_booklets`, booklet_id, person_id, ds_booklet_id, maxb)
}

get_design_C <- function(booklet_id, item_id) {
    .Call(`_dexter_get_design_C`, booklet_id, item_id)
}

polytomize_C <- function(booklet_id, person_id, item_prop, item_score, booklet_score, nlev, nb) {
    .Call(`_dexter_polytomize_C`, booklet_id, person_id, item_prop, item_score, booklet_score, nlev, nb)
}

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

parms_is_superset_matrix <- function(x, item_id, item_score, maxs) {
    .Call(`_dexter_parms_is_superset_matrix`, x, item_id, item_score, maxs)
}

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

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

score_tab_single <- function(scores, max_score) {
    .Call(`_dexter_score_tab_single`, scores, max_score)
}

tia_C <- function(booklet_id, booklet_score, item_id, item_score, nb, nit, frst_item, ds_booklet_id, ds_item_id) {
    .Call(`_dexter_tia_C`, booklet_id, booklet_score, item_id, item_score, nb, nit, frst_item, ds_booklet_id, ds_item_id)
}

ElSym_C <- function(b, a, first, last, item1, item2, nI, mS, g) {
    invisible(.Call(`_dexter_ElSym_C`, b, a, first, last, item1, item2, nI, mS, g))
}

possible_scores_C <- function(a, first, last) {
    .Call(`_dexter_possible_scores_C`, a, first, last)
}

ittotmat0_C <- function(b, a, c, first, last, ps) {
    .Call(`_dexter_ittotmat0_C`, b, a, c, first, last, ps)
}

E_booklets <- function(b, a, first, last, scoretab, n_score, nit) {
    .Call(`_dexter_E_booklets`, b, a, first, last, scoretab, n_score, nit)
}

NR_booklets <- function(b, a, first, last, scoretab, n_score, nit, max_par_bk, EsufI, H) {
    invisible(.Call(`_dexter_NR_booklets`, b, a, first, last, scoretab, n_score, nit, max_par_bk, EsufI, H))
}

calibrate_Bayes_C <- function(a, first, last, ib, bi, nbi, nib, bfirst, blast, bmax, m, sufI, bkscoretab, b_in, fixed_b, from, step, ndraws, progress_init, prior_eta = 0.5, prior_rho = 0.5) {
    .Call(`_dexter_calibrate_Bayes_C`, a, first, last, ib, bi, nbi, nib, bfirst, blast, bmax, m, sufI, bkscoretab, b_in, fixed_b, from, step, ndraws, progress_init, prior_eta, prior_rho)
}

meanElSym <- function(b, a, first, last, item1, item2, nI, mS, g) {
    invisible(.Call(`_dexter_meanElSym`, b, a, first, last, item1, item2, nI, mS, g))
}

E_booklets_mean <- function(b, a, first, last, scoretab, n_score, nit) {
    .Call(`_dexter_E_booklets_mean`, b, a, first, last, scoretab, n_score, nit)
}

NR_booklets_mean <- function(b, a, first, last, scoretab, n_score, nit, max_par_bk, EsufI, H) {
    invisible(.Call(`_dexter_NR_booklets_mean`, b, a, first, last, scoretab, n_score, nit, max_par_bk, EsufI, H))
}

ittotmat_C <- function(b, a, c, first, last, ps) {
    .Call(`_dexter_ittotmat_C`, b, a, c, first, last, ps)
}

ss_table_enorm_C <- function(a, b, first, last, firstA, lastA, firstB, lastB) {
    .Call(`_dexter_ss_table_enorm_C`, a, b, first, last, firstA, lastA, firstB, lastB)
}

ss_table_im_C <- function(a, b, c, first, last, firstA, lastA, firstB, lastB) {
    .Call(`_dexter_ss_table_im_C`, a, b, c, first, last, firstA, lastA, firstB, lastB)
}

sampleNRM2_test <- function(theta, b, a, first, last) {
    .Call(`_dexter_sampleNRM2_test`, theta, b, a, first, last)
}

sampleNRM2_item <- function(theta, b, a, first, last) {
    .Call(`_dexter_sampleNRM2_item`, theta, b, a, first, last)
}

Escore_C <- function(theta, b, a, first, last) {
    .Call(`_dexter_Escore_C`, theta, b, a, first, last)
}

theta_mle_sec <- function(b, a, first, last) {
    .Call(`_dexter_theta_mle_sec`, b, a, first, last)
}

escore_wle <- function(theta, b, a, first, last, nI, max_a) {
    .Call(`_dexter_escore_wle`, theta, b, a, first, last, nI, max_a)
}

theta_wle_sec <- function(b, a, first, last) {
    .Call(`_dexter_theta_wle_sec`, b, a, first, last)
}

theta_EAP_GH_c <- function(p_score, theta, weights) {
    .Call(`_dexter_theta_EAP_GH_c`, p_score, theta, weights)
}

IJ_c <- function(theta, b, a, first, last, I, J, logFi) {
    invisible(.Call(`_dexter_IJ_c`, theta, b, a, first, last, I, J, logFi))
}

PVrecycle <- function(b, a, first, last, mu, sigma, scoretb, A, alpha = -1.0) {
    .Call(`_dexter_PVrecycle`, b, a, first, last, mu, sigma, scoretb, A, alpha)
}

PV_sve <- function(b, a, bk_first, bk_last, bcni, booklet_id, booklet_score, mu, sigma, pv_mat, pv_col_indx = 0L, niter = 1L) {
    invisible(.Call(`_dexter_PV_sve`, b, a, bk_first, bk_last, bcni, booklet_id, booklet_score, mu, sigma, pv_mat, pv_col_indx, niter))
}

PV_slow <- function(b, a, bk_first, bk_last, bcni, booklet_id, booklet_score, mu, sigma, pv_mat, pv_col_indx = 0L) {
    invisible(.Call(`_dexter_PV_slow`, b, a, bk_first, bk_last, bcni, booklet_id, booklet_score, mu, sigma, pv_mat, pv_col_indx))
}

sampleIM <- function(bIM, cIM, a, first, last, scoretab) {
    .Call(`_dexter_sampleIM`, bIM, cIM, a, first, last, scoretab)
}

Try the dexter package in your browser

Any scripts or data that you put into this service are public.

dexter documentation built on May 25, 2022, 9:10 a.m.