Nothing
"SimpsonInt"<- function(xin, h)
{
n<-length(xin)
nn<-1:n
int0<-xin[1]
int2n<-xin[n]
inteven<-xin[seq(3,n-1,by=2)]
intodd<-xin[seq(2,n-2,by=2)]
sumodd<-sum(intodd)
sumeven<-sum(inteven)
res<-(h/3)*(int0+4*sumodd+2*sumeven+int2n)
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.