Nothing
simpson.kD <-function(n,k=2){
a =simpson.coeff(n)
if (k==1){
a
}
else{
as.vector(outer(a,Recall(n,k-1)))
}
}
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.