inst/snippet/ncaa2010-compare.R

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('Michigan St.','Butler',ab=ratings)
compareTeams('Butler','Duke',ab=ratings)

Try the fastR package in your browser

Any scripts or data that you put into this service are public.

fastR documentation built on May 2, 2019, 5:53 p.m.