Nothing
summary.interval <-
function(object,...){
mean = meanInterval(object)
variance = varianceInterval(object)
standard_deviance = sdInterval(object)
median = percentileInterval(object,0.5,"T")
return = data.frame(mean,variance,standard_deviance,median)
## return
class(object) <- "summary.interval"
return
}
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.