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)
}

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.