Nothing
## File Name: tam.R
## File Version: 9.06
tam <- function(resp, irtmodel="1PL", formulaA=NULL, ...)
{
facets <- NULL
res <- NULL
if (irtmodel %in% c("2PL","GPCM", "GPCM.design", "2PL.groups") ){
res <- tam.mml.2pl(resp, irtmodel=irtmodel,... )
}
if( !is.null(formulaA) ){
res <- tam.mml.mfr(resp, formulaA=formulaA, facets=facets, ...)
}
if( is.null(res) ){
res <- tam.mml(resp, ...)
}
}
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.