Nothing
dice <-
data.frame(red=rep(1:6,each=6),blue=rep(1:6,times=6))
with(dice,dice[(red<blue | blue==5 ) & (red + blue >= 9),])
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.