## 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.