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