shrink <- function(u, v){ (1 + sign(u - v))/2*(u - v) - (1 + sign(-u - v))/2*(-u-v) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.