powered by
Evaluates the pinball loss.
pinLoss(y, mu, qu, add = TRUE)
A numeric vector or matrix of evaluate losses.
points at which the loss is evaluated.
location parameter of the pinball loss.
quantile level of the loss.
if TRUE the losses at which quantile level will be added up.
Matteo Fasiolo <matteo.fasiolo@gmail.com>.
n <- 1000 x <- seq(0, 4, length.out = n) plot(x, pinLoss(x, rep(2, n), qu = 0.9, add = FALSE), type = 'l', ylab = "loss")
Run the code above in your browser using DataLab