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.