R/rasch_jml_centerpersons.R

In alexanderrobitzsch/sirt: Supplementary Item Response Theory Models

## File Name: rasch_jml_centerpersons.R
## File Version: 0.04

rasch_jml_centerpersons <- function(theta, dat1, centerpersons)
{
    if (centerpersons){
        theta <- theta - stats::weighted.mean( theta, dat1[,2] )
    }
    return(theta)
}