calc_new_rating: Calculate new rating
In lazappi/aflelo: Elo models for AFL

Description Usage Arguments Value Examples

Calculate new rating for a team based on predicted and real results

1	calc_new_rating(model, team, real_result, pred_result)

`model`	aflelo_model object
`team`	name of team to calculate new rating for
`real_result`	real result probability
`pred_result`	predicted result probability

New rating value for the team

model <- aflelo_model()
match <- aflelo_match(2000, "R1", "Melbourne", "Adelaide", "M.C.G.",
                      10, 110, 102)
real_result <- aflelo:::convert_margin(model, match$real_margin)
pred_result <- aflelo:::convert_margin(model, match$pred_margin)
aflelo:::calc_new_rating(model, "Melbourne", real_result, pred_result)