data(adv)
SEQ <- elo.seq(winner=adv$winner, loser=adv$loser, Date=adv$Date)
extract_elo(SEQ, "2010-01-30")
extract_elo(SEQ, "2010-01-30", standardize=TRUE)
# same as
scale_elo(extract_elo(SEQ, "2010-01-30"))
Run the code above in your browser using DataLab