R/tam_exp_overflow.R

Defines functions tam_exp_overflow

## File Name: tam_exp_overflow.R
## File Version: 0.03

tam_exp_overflow <- function(x, max=1E200 )
{
    x <- ifelse( is.na(x), -max, x )
    x <- ifelse( x > max, max, x)
    y <- exp(x)
    return(y)
}
alexanderrobitzsch/TAM documentation built on Feb. 21, 2024, 5:59 p.m.