R/selectDif.r

In difR: Collection of Methods to Detect Dichotomous Differential Item Functioning (DIF)

selectDif<-function (Data, group, focal.name, method, anchor = NULL, props = NULL, 
    thrTID = 1.5, alpha = 0.05, MHstat = "MHChisq", correct = TRUE, 
    exact = FALSE, stdWeight = "focal", thrSTD = 0.1, BDstat = "BD", 
    member.type = "group", match = "score", type = "both", criterion = "LRT", 
    model = "2PL", c = NULL, engine = "ltm", discr = 1, irtParam = NULL, 
    same.scale = TRUE, signed = FALSE, purify = FALSE, purType = "IPP1", nrIter = 10, extreme = "constraint", const.range = c(0.001, 0.999), nrAdd = 1,
    p.adjust.method=NULL, save.output = FALSE, output = c("out", "default")) 
{
    res <- switch(method, TID = difTID(Data = Data, group = group, 
        focal.name = focal.name, thrTID = thrTID, purify = purify, purType = purType, nrIter = nrIter, extreme = extreme, const.range = const.range, nrAdd = nrAdd , save.output = save.output, 
        output = output), MH = difMH(Data = Data, group = group, 
        focal.name = focal.name, match=match, anchor = anchor, MHstat = MHstat, 
        correct = correct, exact = exact, alpha = alpha, purify = purify, 
        nrIter = nrIter, p.adjust.method = p.adjust.method, save.output = save.output, output = output), 
        Std = difStd(Data = Data, group = group, focal.name = focal.name, 
            anchor = anchor, match=match, stdWeight = stdWeight, thrSTD = thrSTD, 
            purify = purify, nrIter = nrIter, save.output = save.output, 
            output = output), Logistic = difLogistic(Data = Data, 
            group = group, focal.name = focal.name, anchor = anchor, 
            member.type = member.type, match = match, type = type, 
            criterion = criterion, alpha = alpha, purify = purify, 
            nrIter = nrIter, p.adjust.method = p.adjust.method, save.output = save.output, output = output), 
        BD = difBD(Data = Data, group = group, focal.name = focal.name, 
            anchor = anchor, match=match, BDstat = BDstat, alpha = alpha, 
            purify = purify, nrIter = nrIter,p.adjust.method = p.adjust.method,  save.output = save.output, 
            output = output), LRT = difLRT(Data = Data, group = group, 
            focal.name = focal.name, alpha = alpha, purify = purify, 
            nrIter = nrIter, p.adjust.method = p.adjust.method, save.output = save.output, output = output), 
	  SIBTEST = difSIBTEST(Data = Data, group = group, focal.name = focal.name, 
            type=ifelse(type=="both","nudif",type),anchor = anchor, alpha = alpha, 
            purify = purify, nrIter = nrIter,p.adjust.method = p.adjust.method,  save.output = save.output, 
            output = output), 
	  LRT = difLRT(Data = Data, group = group, 
            focal.name = focal.name, alpha = alpha, purify = purify, 
            nrIter = nrIter, p.adjust.method = p.adjust.method, save.output = save.output, output = output), 
        Raju = difRaju(Data = Data, group = group, focal.name = focal.name, 
            anchor = anchor, model = model, c = c, engine = engine, 
            discr = discr, alpha = alpha, signed = signed, purify = purify, 
            nrIter = nrIter, p.adjust.method = p.adjust.method, save.output = save.output, output = output), 
        Lord = difLord(Data = Data, group = group, focal.name = focal.name, 
            anchor = anchor, model = model, c = c, engine = engine, 
            discr = discr, alpha = alpha, purify = purify, nrIter = nrIter, 
            p.adjust.method = p.adjust.method, save.output = save.output, output = output))
    return(res)
}