Nothing
## Summarize function used in generic methods
## Return mean, median, quantiles
summarize <-
function(x, .prob, .digits){
out <-
c(round(mean(x), .digits),
round(median(x), .digits),
round(quantile(x, probs = c(0, .prob) + (1 - .prob) / 2), .digits))
return(out)
}
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.