Nothing
simpson <- function(fxs,a,b){
np<-length(fxs);h=(b-a)/(np-1)
int<-3*(fxs[1]+fxs[np])/8+7*(fxs[2]+fxs[np-1])/6+23*(fxs[3]+fxs[np-2])/24+sum(fxs[4:(np-3)])
return(int*h)
}
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.