Nothing
require(BradleyTerry2)
# home team gets advantage unless on neutral court
ncaa$home <- data.frame(team=ncaa$home, at.home = 1 - ncaa$neutralSite)
ncaa$away <- data.frame(team=ncaa$away, at.home = 0)
ncaa.model2 <- update(ncaa.model, id='team', formula = ~ team + at.home)
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.