Nothing
library(kappalab)
a <- Mobius.card.set.func(rnorm(13,3,4))
stopifnot(abs(a@data - Mobius(zeta(a))@data) < 1e-6)
stopifnot(abs(a@data - as.Mobius.card.set.func(as.Mobius.set.func(a))@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.