"reduce2021" <-
function(data, range)
{
etendue <- diff(range)
x <- 1/etendue
y <- sweep(data, 2, FUN = "*", x)
y <- sweep(y, 2, FUN = "+", (0 - range[1, ]) * x)
y
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.