R/sirt_rsquared.R

Defines functions sirt_rsquared

## File Name: sirt_rsquared.R
## File Version: 0.03

sirt_rsquared <- function(x, expl, na.rm=TRUE)
{
    res <- 1 - sum( ( x - expl)^2, na.rm=na.rm ) / sum( x^2, na.rm=na.rm)
    return(res)
}

Try the sirt package in your browser

Any scripts or data that you put into this service are public.

sirt documentation built on May 29, 2024, 8:43 a.m.