Nothing
compareTeams <-
function(team1, team2, model,
abilities = BTabilities(model)) {
a <- abilities[team1, 1]
b <- abilities[team2, 1]
return(ilogit(a - b))
}
compareTeams("Kansas", "Kentucky", ab = ratings)
compareTeams("Butler", "Michigan St.", ab = ratings)
compareTeams("Butler", "Duke", ab = ratings)
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.