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