R/tam_mml_person_EAP.R

Defines functions tam_mml_person_EAP

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


tam_mml_person_EAP <- function( hwt, theta )
{
    N <- nrow(hwt)
    TP <- ncol(hwt)
    M1 <- matrix(as.vector(theta), nrow=N, ncol=TP, byrow=TRUE)
    EAP <- rowSums( hwt * M1 )
    return(EAP)
}

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.