Nothing
#Sys.setenv("R_TESTS" = "")
#library(rstan)
#stancode <- 'data {real y_mean;} parameters {real y;} model {y ~ normal(y_mean,1);}'
#mod <- stan_model(model_code = stancode, verbose = TRUE)
#fit <- sampling(mod, data = list(y_mean = 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.