R/tam.personfit.R

Defines functions tam.personfit

Documented in tam.personfit

## File Name: tam.personfit.R
## File Version: 0.07

tam.personfit <- function(tamobj)
{
    #** WLE estimation in case of MML estimation
    if ( ! inherits(tamobj,"tam.jml") ){
        res <- tam.wle(tamobj, progress=FALSE)
        tamobj$theta <- res$theta
        tamobj$xsi <- tamobj$xsi$xsi
    }
    #** calculate fit statistics
    res <- tam.jml.fit( tamobj=tamobj )$fit.person
    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.