Nothing
taus_def <- list(1:12,1,1:2,1:3,1:5,1:8,1:20,1:50,c(1:10,(6:10)*2),
c(5:10,(6:10)*2,(5:10)*5),(1:10)*2,c(1,2,3,5,7,11,13,17,19))
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.