# fit Bradley-Terry model
require(BradleyTerry2)
NFL.model <-
BTm(cbind(homeTeamWon, !homeTeamWon), home, visitor,
data = NFL, id = "team")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.