Nothing
nb <- list()
for (i in 1:34)
nb <- c(nb,list(scan(file="libsrc/prabclus/data/nb.txt",
skip=i-1,nlines=1, quiet=TRUE)))
remove(i)
save(nb,file="libsrc/prabclus/data/nb.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.