Truncate values of high magnitude in a vector.
deInf(x, replace = 1/.Machine$double.eps)Returns x with elements whose magnitudes exceed replace
replaced replaced by replace (or its negation). If replace is
"maxint" or "intmax", .Machine$integer.max is used instead.
NA and NAN values are preserved.