## File Name: IRT.factor.scores.xxirt.R
## File Version: 0.07
###########################################################
# object of class xxirt
IRT.factor.scores.xxirt <- function( object, type="EAP", ... )
{
if ( ! ( type %in% c("EAP") ) ){
stop("Requested type is not supported!\n")
}
# EAP
if ( type=="EAP"){
ll <- object$EAP
}
attr(ll,"type") <- type
return(ll)
}
###########################################################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.