R/tam_latreg_se_quick_likelihood.R

Defines functions tam_latreg_se_quick_likelihood

## File Name: tam_latreg_se_quick_likelihood.R
## File Version: 0.05


tam_latreg_se_quick_likelihood <- function( gwt, like, thetawidth, snodes)
{
    hwt <- like * gwt
    loglike_num <- rowSums(hwt)
    loglike_sto <- hwt / rowSums(hwt)
    if ( snodes==0 ){
        res <- log( loglike_num * thetawidth )
    } else {
        res <- log( loglike_sto )
    }
    return(res)
}
alexanderrobitzsch/TAM documentation built on Feb. 21, 2024, 5:59 p.m.