Nothing
selectGenDif<-function (Data, group, focal.names, method, anchor = NULL, match = "score",
type = "both", criterion = "LRT", alpha = 0.05, model = "2PL",
c = NULL, engine = "ltm", discr = 1, irtParam = NULL, nrFocal = 2,
same.scale = TRUE, purify = FALSE, nrIter = 10, p.adjust.method=NULL,save.output = FALSE,
output = c("out", "default"))
{
res <- switch(method, GMH = difGMH(Data = Data, group = group,
focal.names = focal.names, anchor = anchor, match=match,alpha = alpha,
purify = purify, nrIter = nrIter, p.adjust.method = p.adjust.method, save.output = save.output,
output = output), genLogistic = difGenLogistic(Data = Data,
group = group, focal.names = focal.names, anchor = anchor,
match = match, type = type, criterion = criterion, alpha = alpha,
purify = purify, nrIter = nrIter, p.adjust.method = p.adjust.method, save.output = save.output,
output = output), genLord = difGenLord(Data = Data, group = group,
focal.names = focal.names, anchor = anchor, model = model,
c = c, engine = engine, discr = discr, irtParam = irtParam,
nrFocal = nrFocal, same.scale = same.scale, alpha = alpha,
purify = purify, nrIter = nrIter, p.adjust.method = p.adjust.method, save.output = save.output,
output = output))
return(res)
}
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.