R/tam_mml_3pl_stud_prior_discrete.R

Defines functions tam_mml_3pl_stud_prior_discrete

## File Name: tam_mml_3pl_stud_prior_discrete.R
## File Version: 0.07

tam_mml_3pl_stud_prior_discrete <- function(pi.k, ntheta, G,
    group1.list, gwt)
{
    for (gg in 1:G){
        ind.gg <- group1.list[[gg]]
        gwt[ind.gg,] <- matrix( pi.k[,gg], nrow=length(ind.gg),
                                ncol=ntheta, byrow=TRUE )
    }
    res <- list(gwt=gwt)
    return(res)
}

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.