R/rm_eap_reliability.R

In sirt: Supplementary Item Response Theory Models

## File Name: rm_eap_reliability.R
## File Version: 0.05

rm_eap_reliability <- function( EAP, SE_EAP )
{
    EAP.rel <- 1 - mean( SE_EAP^2 ) / ( mean( SE_EAP^2 ) + stats::var( EAP ) )
    return(EAP.rel)
}