Nothing
      integrate.mstR<-function (x, y) 
{
    hauteur <- x[2:length(x)] - x[1:(length(x) - 1)]
    base <- apply(cbind(y[1:(length(y) - 1)], y[2:length(y)]), 
        1, mean)
    res <- sum(base * hauteur)
    return(res)
}
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.