Nothing
# fit a Bradley-Terry model
require(BradleyTerry2)
ncaa.model <- BTm( cbind(homeTeamWon, 1-homeTeamWon),
home, away, data=ncaa, refcat="Duke")
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.