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.