Nothing
aux_trapezoid <-
function(x,y){
N = length(x);
return(sum((x[2:N]-x[1:N-1])*(y[2:N]+y[1:N-1])*0.5));
}
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.