R/sirt_max.R

Defines functions sirt_max

## File Name: sirt_max.R
## File Version: 0.02

sirt_max <- function(x, value=0)
{
    y <- x[ ! is.na(x) ]
    if (length(y)>0){
        z <- max(x, na.rm=TRUE)
    } else {
        z <- 0
    }
    return(z)
}
alexanderrobitzsch/sirt documentation built on Sept. 8, 2024, 2:45 a.m.