Nothing
gconv<-function(g1,g2){
#convolution of probability generating functions g1 and g2
o<-stats::convolve(g1,rev(g2),type="open")
o<-pmin(1,pmax(0,o))
names(o)<-(0:(length(o)-1))
o
}
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.