Nothing
options(width=210,max.print=200)
Eg2_1 <- read.csv("Txt/Eg2_1.csv")
Eg2_2 <- read.csv("Txt/Eg2_2.csv")
saveRDS(Eg2_1,"../RDS/Eg2_1.rds")
saveRDS(Eg2_2,"../RDS/Eg2_2.rds")
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.