R/tam_max_categories.R

Defines functions tam_max_categories

## File Name: tam_max_categories.R
## File Version: 0.06

tam_max_categories <- function(resp)
{
    if (is.vector(resp)){
        resp <- matrix(resp, ncol=1)
    }
    I <- ncol(resp)
    if (I>1){
        res <- apply( resp, 2, max, na.rm=TRUE )
    } else {
        res <- max(resp[,1], na.rm=TRUE)
    }
    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 Aug. 29, 2022, 1:05 a.m.