Nothing
library(kappalab)
a <- Mobius.set.func(runif(16),4,4)
d <- to.data.frame(a)
write.table(d,"my.set.func.csv",sep="\t")
d2 <- read.delim("my.set.func.csv")
a2 <- Mobius.set.func(d2[[1]][3:18],4,4)
stopifnot(abs(a@data - a2@data) < 1e-6)
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.