R/huber.R

Defines functions huber

Documented in huber

huber <-
function(x, eps)
{
    h <- ifelse(abs(x)>eps, abs(x)-eps/2, (x^2)/(2*eps))
    h[is.nan(h)] <- 0
    h
}

Try the qrnn package in your browser

Any scripts or data that you put into this service are public.

qrnn documentation built on May 30, 2017, 3:24 a.m.