Nothing
skewness <-
function(x,na.rm=FALSE) {
term1<- mean((x-mean(x,na.rm=na.rm))^3,na.rm=na.rm)
term2<- (var(x,na.rm=na.rm))^(3/2)
term1/term2
}
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.