Nothing
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
uP <- function(mloc, mpar) {
.Call('_GDINA_uP', PACKAGE = 'GDINA', mloc, mpar)
}
ObsLogLik <- function(mpar, mX, vlogPrior, vgroup, mloc, weights) {
.Call('_GDINA_ObsLogLik', PACKAGE = 'GDINA', mpar, mX, vlogPrior, vgroup, mloc, weights)
}
LikNR <- function(mpar, mX, vlogPrior, vgroup, mloc, weights, simplify = TRUE) {
.Call('_GDINA_LikNR', PACKAGE = 'GDINA', mpar, mX, vlogPrior, vgroup, mloc, weights, simplify)
}
LikNR_LC <- function(mP, mX, vlogPrior, vgroup, weights, simplify = 1L) {
.Call('_GDINA_LikNR_LC', PACKAGE = 'GDINA', mP, mX, vlogPrior, vgroup, weights, simplify)
}
Lik_DTM <- function(mP, mX, vC, vlogPrior) {
.Call('_GDINA_Lik_DTM', PACKAGE = 'GDINA', mP, mX, vC, vlogPrior)
}
fast_GDINA_EM <- function(mloc, mpar, mX, vlogPrior, model_numeric, maxitr, lP, uP, smallNcorrection, vbeta, prior = FALSE, crit = 0.0001) {
.Call('_GDINA_fast_GDINA_EM', PACKAGE = 'GDINA', mloc, mpar, mX, vlogPrior, model_numeric, maxitr, lP, uP, smallNcorrection, vbeta, prior, crit)
}
LouisC <- function(mX, np, mlogPost, itemparmLC, parloc, weight, SEtype) {
.Call('_GDINA_LouisC', PACKAGE = 'GDINA', mX, np, mlogPost, itemparmLC, parloc, weight, SEtype)
}
Mord <- function(item_no, LCprob, prior) {
.Call('_GDINA_Mord', PACKAGE = 'GDINA', item_no, LCprob, prior)
}
Calc_Pj <- function(par, designMj, linkfunc, boundary = FALSE, eps = 1e-16) {
.Call('_GDINA_Calc_Pj', PACKAGE = 'GDINA', par, designMj, linkfunc, boundary, eps)
}
Calc_Dj <- function(par, designMj, linkfunc, boundary = FALSE, eps = 1e-16) {
.Call('_GDINA_Calc_Dj', PACKAGE = 'GDINA', par, designMj, linkfunc, boundary, eps)
}
Calc_Pj_jac <- function(par, designMj, linkfunc, boundary = FALSE, eps = 1e-16) {
.Call('_GDINA_Calc_Pj_jac', PACKAGE = 'GDINA', par, designMj, linkfunc, boundary, eps)
}
Mstep_obj_fn <- function(par, Nj, Rj, designMj, uPj, lPj, linkfunc, ConstrMatrix = NULL, eps = 1e-16, ConstrType = 0L, greaterthan0 = TRUE) {
.Call('_GDINA_Mstep_obj_fn', PACKAGE = 'GDINA', par, Nj, Rj, designMj, uPj, lPj, linkfunc, ConstrMatrix, eps, ConstrType, greaterthan0)
}
Mstep_obj_fn_prior <- function(par, Nj, Rj, designMj, uPj, lPj, linkfunc, ConstrMatrix = NULL, eps = 1e-16, ConstrType = 0L, greaterthan0 = TRUE, m = 0, sd = 5) {
.Call('_GDINA_Mstep_obj_fn_prior', PACKAGE = 'GDINA', par, Nj, Rj, designMj, uPj, lPj, linkfunc, ConstrMatrix, eps, ConstrType, greaterthan0, m, sd)
}
Mstep_obj_fn_max <- function(par, Nj, Rj, designMj, uPj, lPj, linkfunc, ConstrMatrix = NULL, eps = 1e-16, ConstrType = 0L, greaterthan0 = TRUE) {
.Call('_GDINA_Mstep_obj_fn_max', PACKAGE = 'GDINA', par, Nj, Rj, designMj, uPj, lPj, linkfunc, ConstrMatrix, eps, ConstrType, greaterthan0)
}
Mstep_obj_gr <- function(par, Nj, Rj, designMj, uPj, lPj, linkfunc, ConstrMatrix = NULL, eps = 1e-16, ConstrType = 0L, greaterthan0 = TRUE) {
.Call('_GDINA_Mstep_obj_gr', PACKAGE = 'GDINA', par, Nj, Rj, designMj, uPj, lPj, linkfunc, ConstrMatrix, eps, ConstrType, greaterthan0)
}
Mstep_ineq_fn <- function(par, Nj, Rj, designMj, uPj, lPj, linkfunc, ConstrMatrix = NULL, eps = 1e-16, ConstrType = 0L, greaterthan0 = TRUE) {
.Call('_GDINA_Mstep_ineq_fn', PACKAGE = 'GDINA', par, Nj, Rj, designMj, uPj, lPj, linkfunc, ConstrMatrix, eps, ConstrType, greaterthan0)
}
Mstep_ineq_jac <- function(par, Nj, Rj, designMj, uPj, lPj, linkfunc, ConstrMatrix = NULL, eps = 1e-16, ConstrType = 0L, greaterthan0 = TRUE) {
.Call('_GDINA_Mstep_ineq_jac', PACKAGE = 'GDINA', par, Nj, Rj, designMj, uPj, lPj, linkfunc, ConstrMatrix, eps, ConstrType, greaterthan0)
}
NgRg <- function(mlogPost, mX, mloc, weights) {
.Call('_GDINA_NgRg', PACKAGE = 'GDINA', mlogPost, mX, mloc, weights)
}
Rljs_DTM <- function(mlogPost, mX, vC) {
.Call('_GDINA_Rljs_DTM', PACKAGE = 'GDINA', mlogPost, mX, vC)
}
SE <- function(mX, mlogPost, itmpar, parloc, model, mIndmiss, SE_type) {
.Call('_GDINA_SE', PACKAGE = 'GDINA', mX, mlogPost, itmpar, parloc, model, mIndmiss, SE_type)
}
aggregateCol <- function(mX, ind) {
.Call('_GDINA_aggregateCol', PACKAGE = 'GDINA', mX, ind)
}
fitstats <- function(mX, Xfit, cor = TRUE) {
.Call('_GDINA_fitstats', PACKAGE = 'GDINA', mX, Xfit, cor)
}
scorefun <- function(mX, mlogPost, itmpar, parloc, model) {
.Call('_GDINA_scorefun', PACKAGE = 'GDINA', mX, mlogPost, itmpar, parloc, model)
}
sequP <- function(mloc, mpar, vC) {
.Call('_GDINA_sequP', PACKAGE = 'GDINA', mloc, mpar, vC)
}
combnCpp <- function(n, k) {
.Call('_GDINA_combnCpp', PACKAGE = 'GDINA', n, k)
}
rowProd <- function(m, v) {
.Call('_GDINA_rowProd', PACKAGE = 'GDINA', m, v)
}
whichrow_AinB <- function(A, B) {
.Call('_GDINA_whichrow_AinB', PACKAGE = 'GDINA', A, B)
}
whichcol_AinB <- function(A, B) {
.Call('_GDINA_whichcol_AinB', PACKAGE = 'GDINA', A, B)
}
unique_rows <- function(A) {
.Call('_GDINA_unique_rows', PACKAGE = 'GDINA', A)
}
alpha2 <- function(K) {
.Call('_GDINA_alpha2', PACKAGE = 'GDINA', K)
}
alphap <- function(maxlevel) {
.Call('_GDINA_alphap', PACKAGE = 'GDINA', maxlevel)
}
ColNormalize <- function(X) {
.Call('_GDINA_ColNormalize', PACKAGE = 'GDINA', X)
}
RowNormalize <- function(X) {
.Call('_GDINA_RowNormalize', PACKAGE = 'GDINA', X)
}
Pr_2PL <- function(theta, a, b) {
.Call('_GDINA_Pr_2PL', PACKAGE = 'GDINA', theta, a, b)
}
Pr_2PL_vec <- function(theta, a, b, minvalue = 1e-16, maxvalue = 1 - 1e-16) {
.Call('_GDINA_Pr_2PL_vec', PACKAGE = 'GDINA', theta, a, b, minvalue, maxvalue)
}
logLikPattern <- function(AlphaPattern, theta, a, b) {
.Call('_GDINA_logLikPattern', PACKAGE = 'GDINA', AlphaPattern, theta, a, b)
}
PostTheta <- function(AlphaPattern, theta, f_theta, a, b) {
.Call('_GDINA_PostTheta', PACKAGE = 'GDINA', AlphaPattern, theta, f_theta, a, b)
}
expectedNR <- function(AlphaPattern, nc, theta, f_theta, a, b) {
.Call('_GDINA_expectedNR', PACKAGE = 'GDINA', AlphaPattern, nc, theta, f_theta, a, b)
}
logP_AlphaPattern <- function(AlphaPattern, theta, f_theta, a, b) {
.Call('_GDINA_logP_AlphaPattern', PACKAGE = 'GDINA', AlphaPattern, theta, f_theta, a, b)
}
HoIRTlogLik <- function(AlphaPattern, ns, theta, f_theta, a, b) {
.Call('_GDINA_HoIRTlogLik', PACKAGE = 'GDINA', AlphaPattern, ns, theta, f_theta, a, b)
}
HoIRTlogLik3 <- function(ns, mX, theta, f_theta, a, b) {
.Call('_GDINA_HoIRTlogLik3', PACKAGE = 'GDINA', ns, mX, theta, f_theta, a, b)
}
incomplogL <- function(a, b, logL, AlphaPattern, theta, f_theta) {
.Call('_GDINA_incomplogL', PACKAGE = 'GDINA', a, b, logL, AlphaPattern, theta, f_theta)
}
designM <- function(Kj, rule, AlphaPattern = NULL) {
.Call('_GDINA_designM', PACKAGE = 'GDINA', Kj, rule, AlphaPattern)
}
matchMatrix <- function(A, B) {
.Call('_GDINA_matchMatrix', PACKAGE = 'GDINA', A, B)
}
eta <- function(Q, AlphaPattern = NULL) {
.Call('_GDINA_eta', PACKAGE = 'GDINA', Q, AlphaPattern)
}
item_latent_group <- function(Q, AlphaPattern = NULL) {
.Call('_GDINA_item_latent_group', PACKAGE = 'GDINA', Q, AlphaPattern)
}
varsigma <- function(mloc, mP, vw) {
.Call('_GDINA_varsigma', PACKAGE = 'GDINA', mloc, mP, vw)
}
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.