Nothing
mom_dat <- moments(single_run)[, -c(1L:3)]
mom_tab <- cbind(mom_dat[1L:4, ], mom_dat[5L:8, 2])
colnames(mom_tab) <- c("Moment", "Theoretical", "Empirical")
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.