Nothing
rng <-
function (xx)
{
if (!is.matrix(xx))
stop(deparse(substitute(xx)), " is not a Matix")
temp.x <- remove.na(xx)
x <- temp.x$x
p <- temp.x$m
xmin <- numeric(p)
xdiff <- numeric(p)
for (j in 1:p) {
xr <- range(x[, j])
xmin[j] <- xr[1]
xdiff[j] <- diff(xr)
}
x <- sweep(x, 2, xmin, "-")
x <- sweep(x, 2, xdiff, "/")
return(x = x)
}
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.