Nothing
# data scaling
prescale <-
function(xv)
{
## cat("data vector length: ", length(xv),"\n")
## xv <- sort(xv) # ! WITH SORT ?
minxv <- min(xv)
maxxv <- max(xv)
x <- (xv-minxv) / (maxxv- minxv)
invisible(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.