Nothing
moments <-
function (y, order = 8)
{
val <- 1
if (order > 0) for (k in 1:order)
val <- c(val, mean(y^k))
return(val)
}
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.