Nothing
`sdCuts` <-
function(x,n = 5,params = NA) {
balance <- function (x) x - mean(x)
grads = balance(1:(n - 1))
res = mean(x)+grads*sd(x)
names(res) = paste(grads,"SD",sep="")
res }
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.