Nothing
# 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, ncores) {
.Call(`_dexterMST_is_person_booklet_sorted`, booklet_id, person_id, ncores)
}
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)
}
omp_ncores <- function() {
.Call(`_dexterMST_omp_ncores`)
}
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, ncores, E, H) {
invisible(.Call(`_dexterMST_NR`, b, a, bfirst, blast, bmax, nmod, brouting, mnit, mod_min, mod_max, scoretab, ncores, 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, ncores) {
.Call(`_dexterMST_ittotmat_mst`, b, a, c, first, last, bmin, bmax, nmod, brouting, mnit, mod_min, mod_max, ncores)
}
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.