R/rasch_jml_centerpersons.R

Defines functions rasch_jml_centerpersons

## 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)
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.