Nothing
jSimson <-
function(n,v,v0,k){# compute integral by simson formula
h <- (v0-v)/(2*n)
g <- 0
for (i in 1:n){
g <- g + h / 3 * (k(v) + 4 * k(v+h) + k(v+h+h))
v <- v + h + h
}
return(g)
}
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.