Nothing
eLP.poly <-
function (x, m)
{
u <- (rank(x, ties.method = c("average")) - 0.5)/length(x)
m <- min(length(unique(u)) - 1, m)
S.mat <- as.matrix(poly(u, df = m))
return(as.matrix(scale(S.mat)))
}
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.