powered by
Approximation to the ramp function.
hramp(x, lower, eps)
numeric vector.
left censoring point.
epsilon value used in the approximation.
hramp.prime, huber
hramp.prime
huber
# NOT RUN { x <- seq(-2, 2, length=200) plot(x, hramp(x, lower=0, eps=1)) # }
Run the code above in your browser using DataLab