Nothing
intw0 <-
function(z) {c0 <- -0.1351788
cnd <- z != 0; itg <- PspSw(z)
u <- z[cnd]; itg[cnd] <- (PsiSw(u)/u)
itg*dlweibul(z+c0)}
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.