Nothing
#' @export
summary95 <-
function (x) {
qq = quantile(x,probs=c(0,.25,.5), na.rm=T)
qq = c(qq,mean(x,na.rm=T))
qq = c(qq,quantile(x,probs=c(.75,.9,.95,1), na.rm=T))
names(qq) = c("Minimum", "25th", "Median", "Mean", "75th","90th","95th","Maximum")
qq
}
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.