Nothing
cinte<-function(values,volumes,parents){
#Calculates the integral of a piecewise continuous function.
#
len<-length(values)
int<-0
for (i in len:1){
par<-parents[i]
if (par==0) valpar<-0
else valpar<-values[par]
int<-int+volumes[i]*(values[i]-valpar)
}
return(int)
}
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.