Nothing
SimTentFn <-
function(Nobs, S){
Y = numeric(Nobs)
Y[1] = runif(1)
for(i in 2:Nobs) Y[i] = TentFn(Y[i-1], S=S)
return(Y)
}
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.