R/lsem_parameter_summary.R

In alexanderrobitzsch/sirt: Supplementary Item Response Theory Models

## File Name: lsem_parameter_summary.R
## File Version: 0.236


## lsem parameter summary
lsem_parameter_summary <- function( parameters, moderator.density, verbose )
{
    mod.density <- moderator.density
    NP <- max(parameters$parindex)
    if (verbose){
        cat('** Parameter summary \n\n')
        utils::flush.console()
    }
    parameters_summary <- NULL
    for (pp in 1L:NP){
        par.pp <- parameters[ parameters$parindex==pp, ]
        pars1 <- data.frame( par=paste(par.pp$par[1]), parindex=pp)
        x <- par.pp[,'est']
        pars1$M <- stats::weighted.mean( x, mod.density[,2] )
        pars1$SD <- lsem_wtdSD( x, mod.density[,2] )
        # pars1$Var <- pars1$SD^2
        pars1$MAD <- sum( mod.density[,2] * abs( x - pars1$M ) )
        pars1$Min <- min(x)
        pars1$Max <- max(x)
        mod1 <- stats::lm( x ~ mod.density[,1], weights=mod.density[,2] )
        pars1$lin_int <- stats::coef(mod1)[1]
        pars1$lin_slo <- stats::coef(mod1)[2]
        pars1$SD_nonlin <- lsem_wtdSD( stats::resid(mod1), mod.density[,2] )
        parameters_summary <- rbind( parameters_summary, pars1 )
    }
    return(parameters_summary)
}

lsem.parameter.summary <- lsem_parameter_summary