## File Name: tam.modelfit.IRT.R
## File Version: 0.06
tam.modelfit.IRT <- function( object, progress=TRUE )
{
resp <- IRT.data(object)
probs <- IRT.irfprob(object)
theta <- attr( probs, "theta" )
post <- IRT.posterior( object )
res <- tam.modelfit.args( resp=resp, probs=probs, theta=theta,
post=post, progress=progress)
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.