Nothing
hubercls <- function(r, delta) {
(1 - r - 0.5 * delta) * (r <= 1 - delta)
+ 0.5 * (1 - r)^2 / delta * (r <= 1) * (r > 1 - delta)
}
ercls <- function(r, omega) {
abs(omega - (r < 0)) * r^2
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.