Log In Sign Up
Models:
Daniel Galbraith
DanielG/
voomDDA
0
Downloads: 1
[0aeb11]: / safe.exp.R

Download this file

6 lines (5 with data), 88 Bytes 

1
2
3
4
5
safe.exp <- function (x) 

{

  xx = sign(x) * pmin(abs(x), 500)

  return(exp(xx))

}