Crazy scoring

With all the teams just having three games remaining, the Premier League is still so close. And so is PremPredict. The difference this year, though, is that the standard at the top of the league is fantastic – in both competitions.

For that reason, the congratulations go to Roger Gathercole, who is leading from Luke and Neil … but only just.


Latest standings

Here’s what you really want to know, though …

##               Names Scores Bonus   WorstClub WorstCost
## 1  Roger Gathercole     28   -50     Watford        16
## 2       Luke Finnis     88     0      Wolves        25
## 3     Neil Waterman     92   -50     Burnley        49
## 4    Andrea Laporta    118   -50      Wolves        64
## 5       Alan Finnis    166   -50      Wolves        81
## 6       George Quin    196   -50     Watford        64
## 7       Mike Finnis    204     0      Fulham       100
## 8      Peter Finnis    206   -50      Wolves       100
## 9       Vera Finnis    228     0      Fulham        81
## 10    Robin Penfold    238   -50      Fulham        81
## 11     Scott Harrop    240   -50     Watford       100
## 12     Alan Butcher    280     0      Fulham       121
## 13  Mathew Saunders    288     0      Fulham       100
## 14    Imogen Finnis    302     0      Wolves       144
## 15     Beth Penfold    330   -50      Wolves       100
## 16    Hannah Finnis    348     0      Wolves       169
## 17      Les Penfold    348   -50 Southampton        81
## 18     Laura Finnis    440     0      Wolves       169
## 19    Marion Finnis    440     0      Wolves       144
## 20    Paula Penfold    668     0    Brighton       144


Just like the Premier League, this will be an exciting end to a competition that I’ll be watching closely. I’ll be in touch before the final game with all the probabilities, so stay tuned.

All the best to you all …



Appendix

For completeness, here’s the code that I used to calculate what’s above, using this package.

library(premPredictor)
  
player_data <- get_player_data("https://www.dropbox.com/s/uin6zk4w5cyk2m1/PremPredict-18-19.csv")
  
get_latest_standings(data_input = player_data)

 

And here are your team-by-team predictions, alongside the latest team standings.