Nothing
tetragonula <- read.table("libsrc/prabclus/data/Heterotrigona_indoFO.txt",colClasses="character")
tetragonula.coord <- read.table("libsrc/prabclus/data/Franck04koord.txt")
save(tetragonula,tetragonula.coord,file="libsrc/prabclus/data/tetragonula.rda")
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.