A basic attempt at creating an AFL tipping model using R