Nothing
bta <- BTabilities(NFL.model)
nflRatings<- data.frame(
team = rownames(bta),
rating = bta[, "ability"],
se = bta[, "s.e."],
wins = as.vector(tally( ~ winner, data = NFL)),
losses = as.vector(tally( ~ loser, data = NFL))
)
row.names(nflRatings) <- NULL
nflRatings[rev(order(nflRatings$rating)), ]
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.