huberreg <- function(r, delta) { 0.5 * r^2 * (abs(r) <= delta) + delta * (abs(r) - delta/2) * (abs(r) > delta) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.