Nothing
"F0w" <-
function(u,tol=0.0001,maxit=150) {# Fortran version of F0w.s
z <- .Fortran("srf0w",u=as.double(u),tol=as.double(tol),maxit=as.integer(maxit),p=double(1))
z$p}
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.