R/tam.wle.R

Defines functions tam.wle

Documented in tam.wle

## File Name: tam.wle.R
## File Version: 9.171

tam.wle <- function( tamobj, ... )
{
    CALL <- match.call()
    if(inherits(tamobj,"tam.mml")){
        res <- tam.mml.wle2( tamobj, ...)
    }
    if(inherits(tamobj,"tamaan")){
        res <- tam.mml.wle2( tamobj, ...)
    }
    if(inherits(tamobj,"tam.jml")){
        res <- tam_jml_wle( tamobj, ...)
    }
    attr(res,"call") <- CALL
    return( res )
}
alexanderrobitzsch/TAM documentation built on Feb. 21, 2024, 5:59 p.m.