Nothing
sim <-
function(ip, x, D = 1.7){
i = irf(ip, x, D)
d = dim(i$f)
u = runif(d[1] * d[2])
dim(u) = d
return(ifelse(i$f > u, 1, 0))}
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.