R/sirt_var.R

In sirt: Supplementary Item Response Theory Models

## File Name: sirt_var.R
## File Version: 0.01

sirt_var <- function(x, method="ML", na.rm=TRUE)
{
    v1 <- stats::var(x, na.rm=na.rm)
    N <- sum(1-is.na(x))
    v1 <- v1 * (N-1) / N
    return(v1)

}