Nothing
meanInterval <-
function(interval){
xmin = interval$minValue
xmax = interval$maxValue
m =length(xmin)
mean = 0
if(m != length(xmax)){
print("the lenght of xmin and xmax must be the same")
}else{
mean = (sum(xmin)+ sum(xmax))/(2*m)
}
mean
}
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.