inst/snippet/ncaa2010-bt-hc-fit.R

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)

Try the fastR package in your browser

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

fastR documentation built on May 1, 2019, 11:18 p.m.