R/tam_jml_proc_abilities.R

Defines functions tam_jml_proc_abilities

## File Name: tam_jml_proc_abilities.R
## File Version: 0.02


tam_jml_proc_abilities <- function(theta, pweights, B)
{
    ndim <- dim(B)[3]
    if (is.vector(theta)){
        M <- weighted_mean(x=theta, w=pweights)
        SD <- weighted_sd(x=theta, w=pweights)
    } else {
        M <- NULL
        SD <- NULL
    }
    res <- list(M=M, SD=SD, ndim=ndim)
}

Try the TAM package in your browser

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

TAM documentation built on May 29, 2024, 2:20 a.m.