hyper2: The Hyperdirichlet Distribution, Mark 2

`formula1` <-
structure(list(brackets = list("Alonso", c("Alonso", "Bottas", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hamilton", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Perez", "Raikkonen", "Resta", "Ricciardo", "Sainz", 
"Stroll", "Vandoorne", "Verstappen", "Vettel", "Wehrlein"), c("Alonso", 
"Bottas", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hamilton", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Ocon", "Palmer", "Perez", "Raikkonen", "Resta", "Ricciardo", 
"Sainz", "Stroll", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
"Bottas", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hamilton", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Ocon", "Palmer", "Perez", "Raikkonen", "Resta", "Ricciardo", 
"Sainz", "Stroll", "Vandoorne", "Vettel", "Wehrlein"), c("Alonso", 
"Bottas", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hamilton", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Ocon", "Palmer", "Perez", "Raikkonen", "Resta", "Sainz", "Stroll", 
"Vandoorne", "Verstappen", "Vettel", "Wehrlein"), c("Alonso", 
"Bottas", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hamilton", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Ocon", "Palmer", "Perez", "Resta", "Ricciardo", "Sainz", "Stroll", 
"Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", "Bottas", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hamilton", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Perez", "Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen", 
"Wehrlein"), c("Alonso", "Bottas", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", 
"Massa", "Ocon", "Palmer", "Perez", "Raikkonen", "Resta", "Ricciardo", 
"Sainz", "Stroll", "Vandoorne", "Verstappen", "Vettel", "Wehrlein"
), c("Alonso", "Bottas", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Ocon", "Palmer", "Perez", "Raikkonen", "Resta", "Ricciardo", 
"Sainz", "Stroll", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
"Bottas", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Perez", "Raikkonen", "Resta", "Ricciardo", "Sainz", 
"Stroll", "Vandoorne", "Vettel", "Wehrlein"), c("Alonso", "Bottas", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
"Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", 
"Perez", "Raikkonen", "Resta", "Ricciardo", "Sainz", "Stroll", 
"Vandoorne", "Wehrlein"), c("Alonso", "Bottas", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Raikkonen", 
"Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen", "Vettel", 
"Wehrlein"), c("Alonso", "Bottas", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", 
"Massa", "Ocon", "Palmer", "Perez", "Raikkonen", "Resta", "Sainz", 
"Stroll", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
"Bottas", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Perez", "Raikkonen", "Resta", "Sainz", "Stroll", "Vandoorne", 
"Vettel", "Wehrlein"), c("Alonso", "Bottas", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Raikkonen", 
"Resta", "Sainz", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", 
"Bottas", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Perez", "Resta", "Ricciardo", "Sainz", "Stroll", "Vandoorne", 
"Verstappen", "Wehrlein"), c("Alonso", "Bottas", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Resta", "Ricciardo", 
"Sainz", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", "Bottas", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
"Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", 
"Perez", "Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen", 
"Wehrlein"), c("Alonso", "Bottas", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", 
"Massa", "Ocon", "Palmer", "Perez", "Resta", "Sainz", "Stroll", 
"Vandoorne", "Wehrlein"), c("Alonso", "Bottas", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Massa", "Ocon", "Palmer", "Raikkonen", "Resta", 
"Sainz", "Stroll", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
"Bottas", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Palmer", 
"Raikkonen", "Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen", 
"Wehrlein"), c("Alonso", "Bottas", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Grosjean", "Hartley", "Kvyat", "Magnussen", "Massa", 
"Palmer", "Raikkonen", "Resta", "Sainz", "Stroll", "Vandoorne", 
"Verstappen", "Wehrlein"), c("Alonso", "Bottas", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Kvyat", "Magnussen", 
"Massa", "Palmer", "Raikkonen", "Resta", "Stroll", "Vandoorne", 
"Verstappen"), c("Alonso", "Bottas", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Grosjean", "Hartley", "Kvyat", "Magnussen", "Massa", 
"Palmer", "Raikkonen", "Resta", "Stroll", "Vandoorne", "Verstappen", 
"Wehrlein"), c("Alonso", "Bottas", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Grosjean", "Hartley", "Magnussen", "Massa", "Palmer", 
"Raikkonen", "Resta", "Stroll", "Vandoorne", "Verstappen"), c("Alonso", 
"Bottas", "Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", 
"Magnussen", "Massa", "Palmer", "Raikkonen", "Resta", "Stroll", 
"Vandoorne", "Verstappen"), c("Alonso", "Bottas", "Button", "Gasly", 
"Giovinazzi", "Hartley", "Magnussen", "Massa", "Palmer", "Raikkonen", 
"Resta", "Stroll", "Vandoorne", "Verstappen"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hamilton", "Hartley", 
"Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", 
"Perez", "Raikkonen", "Resta", "Ricciardo", "Sainz", "Stroll", 
"Vandoorne", "Verstappen", "Vettel", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hamilton", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Perez", "Raikkonen", "Resta", "Ricciardo", "Sainz", 
"Stroll", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hamilton", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Perez", "Raikkonen", "Resta", "Ricciardo", "Sainz", 
"Stroll", "Vandoorne", "Vettel", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hamilton", "Hartley", 
"Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", 
"Perez", "Raikkonen", "Resta", "Sainz", "Stroll", "Vandoorne", 
"Verstappen", "Vettel", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hamilton", "Hartley", "Hulkenberg", 
"Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Raikkonen", 
"Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hamilton", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Ocon", "Palmer", "Perez", "Raikkonen", "Resta", "Sainz", "Vandoorne", 
"Verstappen", "Vettel", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hamilton", "Hartley", "Hulkenberg", 
"Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Raikkonen", 
"Resta", "Sainz", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hamilton", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Perez", "Resta", "Ricciardo", "Sainz", "Stroll", "Vandoorne", 
"Verstappen", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hamilton", "Hartley", "Hulkenberg", 
"Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Resta", 
"Ricciardo", "Sainz", "Stroll", "Vandoorne", "Vettel", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hamilton", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Ocon", "Palmer", "Perez", "Resta", "Ricciardo", "Sainz", "Stroll", 
"Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Grosjean", "Hamilton", "Hartley", "Hulkenberg", 
"Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Resta", 
"Sainz", "Stroll", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hamilton", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Perez", "Resta", "Sainz", "Stroll", "Vandoorne", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hamilton", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Ocon", "Palmer", "Perez", "Resta", "Stroll", "Vandoorne", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hamilton", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Palmer", "Perez", "Resta", "Ricciardo", "Sainz", "Stroll", "Vandoorne", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hamilton", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", 
"Massa", "Palmer", "Perez", "Resta", "Ricciardo", "Sainz", "Vandoorne", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hamilton", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", 
"Massa", "Palmer", "Resta", "Ricciardo", "Sainz", "Vandoorne", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hamilton", "Hartley", "Hulkenberg", "Kvyat", "Massa", 
"Palmer", "Resta", "Ricciardo", "Sainz", "Vandoorne", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Perez", "Raikkonen", "Resta", "Ricciardo", "Sainz", 
"Stroll", "Vandoorne", "Verstappen", "Vettel", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
"Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", 
"Perez", "Raikkonen", "Resta", "Ricciardo", "Sainz", "Stroll", 
"Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", 
"Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Raikkonen", 
"Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen", "Vettel", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Ocon", "Palmer", "Perez", "Raikkonen", "Resta", "Sainz", "Stroll", 
"Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", 
"Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Raikkonen", 
"Resta", "Sainz", "Stroll", "Vandoorne", "Vettel", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Perez", "Raikkonen", "Resta", "Sainz", "Stroll", "Vandoorne", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Ocon", "Palmer", "Perez", "Raikkonen", "Resta", "Sainz", "Vandoorne", 
"Verstappen", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Raikkonen", 
"Resta", "Stroll", "Vandoorne", "Verstappen", "Vettel", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Perez", "Resta", "Ricciardo", "Sainz", "Stroll", "Vandoorne", 
"Verstappen", "Vettel", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Resta", "Ricciardo", 
"Sainz", "Stroll", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
"Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", 
"Perez", "Resta", "Ricciardo", "Sainz", "Stroll", "Vandoorne", 
"Vettel", "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", 
"Massa", "Ocon", "Palmer", "Perez", "Resta", "Ricciardo", "Sainz", 
"Stroll", "Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Resta", "Sainz", 
"Stroll", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
"Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", 
"Perez", "Resta", "Sainz", "Stroll", "Vandoorne", "Vettel", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Perez", "Resta", "Sainz", "Stroll", "Vandoorne", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Perez", "Resta", "Stroll", "Vandoorne", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Palmer", "Raikkonen", "Resta", "Sainz", "Stroll", "Vandoorne", 
"Verstappen", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Massa", "Ocon", "Palmer", "Raikkonen", "Resta", 
"Sainz", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", 
"Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", "Raikkonen", 
"Resta", "Sainz", "Stroll", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", 
"Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", "Raikkonen", 
"Resta", "Sainz", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Massa", "Ocon", "Palmer", "Raikkonen", "Resta", 
"Stroll", "Vandoorne", "Verstappen", "Vettel", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
"Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", 
"Resta", "Ricciardo", "Sainz", "Stroll", "Vandoorne", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
"Raikkonen", "Resta", "Stroll", "Vandoorne", "Verstappen", "Vettel", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Ocon", "Raikkonen", "Resta", "Stroll", "Verstappen", "Vettel", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Ocon", "Raikkonen", "Resta", "Verstappen", "Vettel", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Palmer", 
"Perez", "Raikkonen", "Resta", "Sainz", "Vandoorne", "Verstappen", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Palmer", "Perez", "Resta", "Ricciardo", "Sainz", "Stroll", "Vandoorne", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Palmer", "Perez", "Resta", "Ricciardo", "Stroll", "Vandoorne", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Palmer", "Perez", "Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Palmer", "Perez", "Resta", "Sainz", "Stroll", "Vandoorne", "Vettel", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Palmer", "Perez", "Resta", "Sainz", "Vandoorne", "Verstappen", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Palmer", "Raikkonen", "Resta", "Sainz", "Stroll", "Vandoorne", 
"Verstappen", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Massa", "Palmer", "Resta", "Ricciardo", "Sainz", 
"Stroll", "Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Massa", "Palmer", "Resta", "Ricciardo", "Stroll", 
"Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", 
"Massa", "Palmer", "Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", 
"Palmer", "Resta", "Sainz", "Stroll", "Vandoorne", "Vettel", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Ocon", 
"Palmer", "Perez", "Resta", "Ricciardo", "Sainz", "Stroll", "Vandoorne", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Ocon", 
"Palmer", "Perez", "Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Ocon", 
"Palmer", "Perez", "Resta", "Sainz", "Stroll", "Vandoorne", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Ocon", "Palmer", 
"Raikkonen", "Resta", "Sainz", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", 
"Kvyat", "Magnussen", "Ocon", "Palmer", "Resta", "Ricciardo", 
"Sainz", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", 
"Kvyat", "Magnussen", "Ocon", "Palmer", "Resta", "Ricciardo", 
"Stroll", "Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Ocon", "Palmer", "Resta", "Sainz", "Stroll", "Vandoorne", 
"Verstappen", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Palmer", "Perez", "Resta", "Sainz", "Vandoorne", 
"Verstappen", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Palmer", "Raikkonen", "Resta", "Sainz", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Palmer", "Resta", 
"Ricciardo", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
"Hulkenberg", "Kvyat", "Magnussen", "Palmer", "Resta", "Sainz", 
"Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", 
"Kvyat", "Magnussen", "Palmer", "Resta", "Sainz", "Vandoorne", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Massa", "Ocon", 
"Palmer", "Perez", "Resta", "Stroll", "Vandoorne", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Massa", "Ocon", "Palmer", 
"Resta", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", 
"Kvyat", "Massa", "Palmer", "Perez", "Raikkonen", "Resta", "Sainz", 
"Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", 
"Kvyat", "Massa", "Palmer", "Perez", "Raikkonen", "Resta", "Vandoorne", 
"Verstappen", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Massa", "Palmer", "Resta", "Ricciardo", "Sainz", "Vandoorne", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Massa", "Palmer", 
"Resta", "Sainz", "Stroll", "Vandoorne", "Vettel", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Kvyat", "Massa", "Palmer", "Resta", 
"Stroll", "Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
"Palmer", "Resta", "Sainz", "Vandoorne", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
"Hulkenberg", "Magnussen", "Ocon", "Palmer", "Resta", "Ricciardo", 
"Stroll", "Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Magnussen", 
"Palmer", "Resta", "Ricciardo", "Stroll", "Vandoorne", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Hulkenberg", "Magnussen", "Palmer", "Resta", "Ricciardo", 
"Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Magnussen", 
"Palmer", "Resta", "Ricciardo", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", 
"Palmer", "Resta", "Sainz", "Vandoorne", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
"Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Resta", 
"Ricciardo", "Sainz", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
"Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Resta", 
"Sainz", "Stroll", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
"Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Resta", 
"Sainz", "Stroll", "Vandoorne", "Vettel", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
"Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Resta", 
"Sainz", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Kvyat", 
"Magnussen", "Massa", "Ocon", "Palmer", "Resta", "Ricciardo", 
"Sainz", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Kvyat", 
"Magnussen", "Massa", "Palmer", "Perez", "Resta", "Sainz", "Stroll", 
"Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Grosjean", "Hartley", "Kvyat", "Magnussen", "Massa", 
"Palmer", "Resta", "Ricciardo", "Sainz", "Stroll", "Vandoorne", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Kvyat", "Magnussen", "Massa", "Palmer", 
"Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Kvyat", "Magnussen", "Massa", "Palmer", "Resta", 
"Sainz", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Kvyat", 
"Magnussen", "Massa", "Palmer", "Resta", "Sainz", "Vandoorne", 
"Verstappen", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Kvyat", "Magnussen", 
"Palmer", "Resta", "Ricciardo", "Sainz", "Stroll", "Vandoorne", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Kvyat", "Magnussen", "Palmer", "Resta", 
"Ricciardo", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
"Kvyat", "Magnussen", "Palmer", "Resta", "Ricciardo", "Vandoorne", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Grosjean", "Hartley", "Kvyat", "Magnussen", "Palmer", "Resta", 
"Sainz", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Kvyat", 
"Magnussen", "Palmer", "Resta", "Sainz", "Stroll", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Kvyat", "Palmer", "Resta", "Sainz", "Stroll", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
"Hartley", "Magnussen", "Palmer", "Resta", "Ricciardo", "Stroll", 
"Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Grosjean", "Hartley", "Magnussen", "Palmer", "Resta", 
"Ricciardo", "Vandoorne", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Palmer", 
"Resta", "Ricciardo", "Vandoorne", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", "Palmer", 
"Resta", "Ricciardo", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Palmer", "Resta", 
"Sainz", "Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Grosjean", "Hartley", "Palmer", "Resta", 
"Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Grosjean", "Hulkenberg", "Magnussen", "Palmer", 
"Resta", "Ricciardo", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", 
"Massa", "Ocon", "Palmer", "Perez", "Resta", "Sainz", "Stroll", 
"Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Hartley", "Hulkenberg", "Kvyat", 
"Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Resta", "Stroll", 
"Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", 
"Massa", "Ocon", "Palmer", "Resta", "Sainz", "Stroll", "Vandoorne", 
"Verstappen", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", 
"Massa", "Ocon", "Raikkonen", "Resta", "Verstappen", "Vettel", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Palmer", 
"Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", 
"Hulkenberg", "Kvyat", "Magnussen", "Massa", "Raikkonen", "Resta", 
"Verstappen", "Vettel", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", 
"Ocon", "Palmer", "Perez", "Resta", "Stroll", "Vandoorne", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", 
"Hulkenberg", "Kvyat", "Magnussen", "Ocon", "Palmer", "Resta", 
"Sainz", "Stroll", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Hulkenberg", 
"Kvyat", "Magnussen", "Palmer", "Resta", "Sainz", "Stroll", "Vandoorne", 
"Verstappen", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", 
"Palmer", "Resta", "Sainz", "Vandoorne", "Verstappen", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", 
"Hulkenberg", "Kvyat", "Magnussen", "Raikkonen", "Resta", "Verstappen", 
"Vettel", "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Hartley", "Hulkenberg", "Kvyat", "Magnussen", 
"Resta", "Sainz", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Hulkenberg", 
"Kvyat", "Magnussen", "Resta", "Sainz", "Verstappen", "Wehrlein"
), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", 
"Hulkenberg", "Kvyat", "Massa", "Palmer", "Resta", "Sainz", "Stroll", 
"Vandoorne", "Vettel", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
"Gasly", "Giovinazzi", "Hartley", "Hulkenberg", "Kvyat", "Massa", 
"Palmer", "Resta", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Hulkenberg", 
"Kvyat", "Ocon", "Palmer", "Perez", "Resta", "Stroll", "Vandoorne", 
"Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
"Hartley", "Hulkenberg", "Kvyat", "Ocon", "Perez", "Resta", "Stroll", 
"Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", 
"Giovinazzi", "Hartley", "Hulkenberg", "Kvyat", "Palmer", "Resta", 
"Sainz", "Stroll", "Vandoorne", "Vettel", "Wehrlein"), c("Alonso", 
"Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Hulkenberg", 
"Kvyat", "Perez", "Resta", "Stroll", "Vandoorne", "Wehrlein"), 
    c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Hulkenberg", "Kvyat", "Resta", "Stroll", "Vandoorne", 
    "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Hulkenberg", "Resta", "Stroll", "Vandoorne", 
    "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", 
    "Perez", "Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen", 
    "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Kvyat", "Magnussen", "Massa", "Palmer", "Resta", 
    "Sainz", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
    "Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Kvyat", 
    "Magnussen", "Massa", "Resta", "Sainz", "Vandoorne", "Verstappen", 
    "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Kvyat", "Magnussen", "Ocon", "Palmer", "Perez", 
    "Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen", "Wehrlein"
    ), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Kvyat", "Magnussen", "Ocon", "Palmer", "Resta", 
    "Sainz", "Stroll", "Vandoorne", "Verstappen", "Wehrlein"), 
    c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Kvyat", "Magnussen", "Palmer", "Perez", "Resta", 
    "Sainz", "Stroll", "Vandoorne", "Verstappen", "Wehrlein"), 
    c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Kvyat", "Magnussen", "Palmer", "Perez", "Resta", 
    "Stroll", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
    "Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Kvyat", 
    "Magnussen", "Palmer", "Perez", "Resta", "Vandoorne", "Verstappen", 
    "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Kvyat", "Magnussen", "Palmer", "Resta", "Sainz", 
    "Stroll", "Vandoorne", "Verstappen"), c("Alonso", "Button", 
    "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Kvyat", "Magnussen", 
    "Palmer", "Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen", 
    "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Kvyat", "Magnussen", "Resta", "Sainz", "Verstappen"
    ), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Kvyat", "Magnussen", "Resta", "Sainz", "Verstappen", 
    "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Kvyat", "Massa", "Palmer", "Resta", "Stroll", 
    "Vandoorne", "Wehrlein"), c("Alonso", "Button", "Ericsson", 
    "Gasly", "Giovinazzi", "Hartley", "Kvyat", "Massa", "Resta", 
    "Sainz", "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", 
    "Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Kvyat", 
    "Massa", "Resta", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", 
    "Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Kvyat", 
    "Palmer", "Resta", "Sainz", "Stroll", "Wehrlein"), c("Alonso", 
    "Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Kvyat", 
    "Resta", "Stroll", "Vandoorne", "Wehrlein"), c("Alonso", 
    "Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Magnussen", 
    "Palmer", "Perez", "Resta", "Vandoorne", "Verstappen", "Wehrlein"
    ), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Magnussen", "Palmer", "Resta", "Sainz", "Stroll", 
    "Vandoorne", "Verstappen"), c("Alonso", "Button", "Ericsson", 
    "Gasly", "Giovinazzi", "Hartley", "Magnussen", "Perez", "Resta", 
    "Vandoorne", "Verstappen", "Wehrlein"), c("Alonso", "Button", 
    "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Magnussen", 
    "Perez", "Resta", "Verstappen", "Wehrlein"), c("Alonso", 
    "Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Magnussen", 
    "Resta", "Sainz", "Stroll", "Vandoorne", "Verstappen"), c("Alonso", 
    "Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Palmer", 
    "Resta", "Vandoorne"), c("Alonso", "Button", "Ericsson", 
    "Gasly", "Giovinazzi", "Hartley", "Palmer", "Resta", "Vandoorne", 
    "Wehrlein"), c("Alonso", "Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Perez", "Resta", "Verstappen", "Wehrlein"), c("Alonso", 
    "Button", "Ericsson", "Gasly", "Giovinazzi", "Hulkenberg", 
    "Magnussen", "Palmer", "Resta", "Ricciardo", "Wehrlein"), 
    c("Alonso", "Button", "Ericsson", "Gasly", "Grosjean", "Hartley", 
    "Magnussen", "Palmer", "Resta", "Ricciardo", "Stroll", "Vandoorne", 
    "Wehrlein"), c("Alonso", "Button", "Gasly", "Giovinazzi", 
    "Grosjean", "Hartley", "Palmer", "Resta", "Ricciardo", "Wehrlein"
    ), c("Alonso", "Button", "Gasly", "Giovinazzi", "Hartley", 
    "Kvyat", "Magnussen", "Resta", "Sainz", "Verstappen"), c("Alonso", 
    "Button", "Gasly", "Giovinazzi", "Hartley", "Kvyat", "Massa", 
    "Resta", "Sainz", "Vandoorne", "Verstappen", "Wehrlein"), 
    c("Alonso", "Button", "Gasly", "Giovinazzi", "Hartley", "Kvyat", 
    "Massa", "Resta", "Sainz", "Verstappen"), c("Alonso", "Button", 
    "Gasly", "Giovinazzi", "Hartley", "Kvyat", "Massa", "Resta", 
    "Sainz", "Verstappen", "Wehrlein"), c("Alonso", "Button", 
    "Gasly", "Giovinazzi", "Hartley", "Kvyat", "Palmer", "Resta", 
    "Sainz", "Stroll", "Wehrlein"), c("Alonso", "Button", "Gasly", 
    "Giovinazzi", "Hartley", "Palmer", "Resta", "Sainz", "Stroll", 
    "Wehrlein"), c("Alonso", "Button", "Gasly", "Giovinazzi", 
    "Hartley", "Palmer", "Resta", "Sainz", "Wehrlein"), c("Alonso", 
    "Button", "Gasly", "Giovinazzi", "Hartley", "Perez", "Resta", 
    "Verstappen", "Wehrlein"), c("Alonso", "Button", "Gasly", 
    "Giovinazzi", "Hulkenberg", "Magnussen", "Palmer", "Resta", 
    "Ricciardo", "Wehrlein"), "Bottas", c("Bottas", "Button", 
    "Gasly", "Giovinazzi", "Hartley", "Magnussen", "Massa", "Palmer", 
    "Raikkonen", "Resta", "Stroll", "Vandoorne", "Verstappen"
    ), c("Bottas", "Button", "Gasly", "Giovinazzi", "Hartley", 
    "Magnussen", "Palmer", "Raikkonen", "Resta", "Stroll", "Vandoorne", 
    "Verstappen"), c("Bottas", "Button", "Gasly", "Giovinazzi", 
    "Hartley", "Palmer", "Raikkonen", "Resta", "Stroll", "Vandoorne", 
    "Verstappen"), c("Bottas", "Button", "Gasly", "Giovinazzi", 
    "Hartley", "Raikkonen", "Resta", "Stroll", "Vandoorne", "Verstappen"
    ), c("Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
    "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
    "Palmer", "Perez", "Resta", "Ricciardo", "Sainz", "Stroll", 
    "Vandoorne", "Wehrlein"), c("Button", "Ericsson", "Gasly", 
    "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
    "Magnussen", "Massa", "Ocon", "Palmer", "Perez", "Resta", 
    "Ricciardo", "Stroll", "Vandoorne", "Wehrlein"), c("Button", 
    "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
    "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", 
    "Resta", "Ricciardo", "Stroll", "Vandoorne", "Wehrlein"), 
    c("Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
    "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Palmer", 
    "Resta", "Ricciardo", "Stroll", "Vandoorne", "Wehrlein"), 
    c("Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
    "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Palmer", 
    "Resta", "Ricciardo", "Stroll", "Wehrlein"), c("Button", 
    "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
    "Hulkenberg", "Kvyat", "Magnussen", "Ocon", "Palmer", "Perez", 
    "Resta", "Sainz", "Stroll", "Vandoorne", "Wehrlein"), c("Button", 
    "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
    "Hulkenberg", "Kvyat", "Magnussen", "Ocon", "Palmer", "Resta", 
    "Sainz", "Stroll", "Vandoorne", "Wehrlein"), c("Button", 
    "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
    "Hulkenberg", "Kvyat", "Magnussen", "Palmer", "Raikkonen", 
    "Resta", "Sainz", "Wehrlein"), c("Button", "Ericsson", "Gasly", 
    "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
    "Massa", "Palmer", "Perez", "Raikkonen", "Resta", "Vandoorne", 
    "Verstappen"), c("Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Massa", "Palmer", 
    "Perez", "Raikkonen", "Resta", "Vandoorne", "Verstappen", 
    "Wehrlein"), c("Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Massa", "Palmer", 
    "Resta", "Ricciardo", "Sainz", "Vandoorne", "Wehrlein"), 
    c("Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
    "Hartley", "Hulkenberg", "Kvyat", "Palmer", "Raikkonen", 
    "Resta", "Sainz", "Wehrlein"), c("Button", "Ericsson", "Gasly", 
    "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
    "Palmer", "Resta", "Ricciardo", "Sainz", "Vandoorne", "Wehrlein"
    ), c("Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
    "Hartley", "Hulkenberg", "Kvyat", "Palmer", "Resta", "Ricciardo", 
    "Sainz", "Wehrlein"), c("Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Grosjean", "Hartley", "Hulkenberg", "Magnussen", "Massa", 
    "Palmer", "Resta", "Ricciardo", "Stroll", "Wehrlein"), c("Button", 
    "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
    "Hulkenberg", "Magnussen", "Massa", "Resta", "Ricciardo", 
    "Stroll", "Wehrlein"), c("Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Grosjean", "Hartley", "Hulkenberg", "Massa", "Resta", "Ricciardo"
    ), c("Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
    "Hartley", "Hulkenberg", "Massa", "Resta", "Ricciardo", "Stroll", 
    "Wehrlein"), c("Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Grosjean", "Hartley", "Hulkenberg", "Massa", "Resta", "Ricciardo", 
    "Wehrlein"), c("Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Grosjean", "Hartley", "Kvyat", "Magnussen", "Massa", "Palmer", 
    "Resta", "Ricciardo", "Sainz", "Stroll", "Vandoorne", "Wehrlein"
    ), c("Button", "Ericsson", "Gasly", "Giovinazzi", "Grosjean", 
    "Hartley", "Kvyat", "Magnussen", "Ocon", "Palmer", "Resta", 
    "Sainz", "Stroll", "Vandoorne", "Wehrlein"), c("Button", 
    "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hartley", 
    "Kvyat", "Magnussen", "Ocon", "Palmer", "Resta", "Stroll", 
    "Vandoorne", "Wehrlein"), c("Button", "Ericsson", "Gasly", 
    "Giovinazzi", "Grosjean", "Hartley", "Kvyat", "Magnussen", 
    "Palmer", "Resta", "Ricciardo", "Sainz", "Stroll", "Vandoorne", 
    "Wehrlein"), c("Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Hulkenberg", "Kvyat", "Palmer", "Raikkonen", 
    "Resta", "Sainz", "Wehrlein"), c("Button", "Ericsson", "Gasly", 
    "Giovinazzi", "Hartley", "Hulkenberg", "Kvyat", "Palmer", 
    "Resta", "Sainz", "Stroll", "Vandoorne", "Vettel", "Wehrlein"
    ), c("Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", 
    "Hulkenberg", "Kvyat", "Resta", "Sainz", "Stroll", "Vandoorne", 
    "Vettel", "Wehrlein"), c("Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Kvyat", "Magnussen", "Palmer", "Resta", "Ricciardo", 
    "Sainz", "Stroll", "Vandoorne", "Wehrlein"), c("Button", 
    "Ericsson", "Gasly", "Giovinazzi", "Hartley", "Kvyat", "Magnussen", 
    "Palmer", "Resta", "Ricciardo", "Sainz", "Stroll", "Wehrlein"
    ), c("Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", 
    "Kvyat", "Palmer", "Resta", "Ricciardo", "Sainz", "Stroll"
    ), c("Button", "Ericsson", "Gasly", "Giovinazzi", "Hartley", 
    "Kvyat", "Palmer", "Resta", "Ricciardo", "Sainz", "Stroll", 
    "Wehrlein"), c("Button", "Ericsson", "Gasly", "Giovinazzi", 
    "Hartley", "Palmer", "Resta", "Vandoorne"), c("Button", "Ericsson", 
    "Gasly", "Giovinazzi", "Kvyat", "Palmer", "Resta", "Ricciardo", 
    "Sainz", "Stroll"), c("Button", "Ericsson", "Giovinazzi", 
    "Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Palmer", "Resta", 
    "Ricciardo", "Sainz"), c("Button", "Ericsson", "Giovinazzi", 
    "Grosjean", "Hartley", "Hulkenberg", "Kvyat", "Palmer", "Resta", 
    "Ricciardo", "Sainz", "Wehrlein"), c("Button", "Ericsson", 
    "Giovinazzi", "Grosjean", "Hartley", "Kvyat", "Magnussen", 
    "Ocon", "Palmer", "Resta", "Stroll", "Vandoorne", "Wehrlein"
    ), c("Button", "Ericsson", "Giovinazzi", "Hartley", "Hulkenberg", 
    "Kvyat", "Palmer", "Raikkonen", "Resta", "Sainz", "Wehrlein"
    ), c("Button", "Ericsson", "Giovinazzi", "Hartley", "Hulkenberg", 
    "Kvyat", "Raikkonen", "Resta", "Sainz", "Wehrlein"), c("Button", 
    "Ericsson", "Giovinazzi", "Hartley", "Hulkenberg", "Kvyat", 
    "Resta", "Sainz", "Stroll", "Vandoorne", "Vettel", "Wehrlein"
    ), c("Button", "Ericsson", "Giovinazzi", "Hartley", "Hulkenberg", 
    "Kvyat", "Resta", "Sainz", "Stroll", "Vettel", "Wehrlein"
    ), c("Button", "Ericsson", "Giovinazzi", "Hartley", "Kvyat", 
    "Raikkonen", "Resta", "Sainz"), c("Button", "Ericsson", "Giovinazzi", 
    "Hartley", "Kvyat", "Raikkonen", "Resta", "Sainz", "Wehrlein"
    ), c("Button", "Ericsson", "Giovinazzi", "Kvyat", "Palmer", 
    "Resta", "Ricciardo", "Sainz", "Stroll"), c("Button", "Gasly", 
    "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Kvyat", 
    "Massa", "Palmer", "Perez", "Raikkonen", "Resta", "Vandoorne", 
    "Verstappen"), c("Button", "Gasly", "Giovinazzi", "Grosjean", 
    "Hartley", "Hulkenberg", "Kvyat", "Massa", "Palmer", "Perez", 
    "Raikkonen", "Resta", "Verstappen"), c("Button", "Gasly", 
    "Giovinazzi", "Grosjean", "Hartley", "Hulkenberg", "Massa", 
    "Resta", "Ricciardo"), c("Button", "Gasly", "Giovinazzi", 
    "Hartley", "Hulkenberg", "Kvyat", "Massa", "Palmer", "Perez", 
    "Raikkonen", "Resta", "Verstappen"), c("Button", "Giovinazzi", 
    "Grosjean", "Hartley", "Kvyat", "Magnussen", "Ocon", "Palmer", 
    "Resta", "Stroll", "Vandoorne"), c("Button", "Giovinazzi", 
    "Grosjean", "Hartley", "Kvyat", "Magnussen", "Ocon", "Palmer", 
    "Resta", "Stroll", "Vandoorne", "Wehrlein"), c("Button", 
    "Giovinazzi", "Hartley", "Kvyat", "Magnussen", "Ocon", "Palmer", 
    "Resta", "Stroll", "Vandoorne"), c("Button", "Giovinazzi", 
    "Kvyat", "Palmer", "Resta", "Ricciardo", "Sainz", "Stroll"
    ), "Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hamilton", 
    "Hartley", "Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", 
    "Palmer", "Perez", "Raikkonen", "Ricciardo", "Sainz", "Stroll", 
    "Vandoorne", "Verstappen", "Vettel", "Wehrlein"), powers = c(11, 
-20, -5, -2, -1, -2, -1, -9, -6, -2, -1, -1, -2, -2, -2, -1, 
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -3, -3, -1, -1, -1, 
-1, -1, -3, -1, -1, -1, -1, -1, -1, -1, -1, -1, -4, -4, -2, -3, 
-1, -1, -1, -1, -1, -6, -1, -6, -4, -2, -2, -2, -1, -1, -1, -1, 
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 
-1, -1, -1, -1, -1, -2, -1, -1, -1, -1, -1, -1, -1, -1, -1, -2, 
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 19, -1, -1, -1, -1, -1, 
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 
-1, 14, 5, 1, 17, 20, 2, 14, 11, 15, 17, 19, 11, 19, 17, 14, 
12, 16, 14, 13, 18, 15), pnames = c("Alonso", "Bottas", "Button", 
"Ericsson", "Gasly", "Giovinazzi", "Grosjean", "Hamilton", "Hartley", 
"Hulkenberg", "Kvyat", "Magnussen", "Massa", "Ocon", "Palmer", 
"Perez", "Raikkonen", "Resta", "Ricciardo", "Sainz", "Stroll", 
"Vandoorne", "Verstappen", "Vettel", "Wehrlein")), class = "hyper2")





`F1_points_2017` <- c(Hamilton = 363L, Vettel = 317L, Bottas = 305L, Raikkonen = 205L, 
Ricciardo = 200L, Verstappen = 168L, Perez = 100L, Ocon = 87L, 
Sainz = 54L, Hulkenberg = 43L, Massa = 43L, Stroll = 40L, Grosjean = 28L, 
Magnussen = 19L, Alonso = 17L, Vandoorne = 13L, Palmer = 8L, 
Wehrlein = 5L, Kvyat = 0L, Ericsson = 0L, Gasly = 0L, Giovinazzi = 0L, 
Hartley = 0L, Button = 0L, Resta = 0L)


`F1_table_2016` <-
structure(list(AUS = c("1", "2", "4", "3", "10", "Ret", "13", 
"8", "7", "Ret", "5", "9", "6", "DNS", "14", "12", "15", "11", 
"16", "0", "Ret", "Ret", "0", "Ret"), BHR = c("1", "3", "4", 
"DNS", "6", "2", "16", "9", "15", "0", "8", "Ret", "5", "7", 
"Ret", "11", "14", "DNS", "13", "10", "Ret", "12", "0", "17"), 
    CHN = c(1L, 7L, 4L, 2L, 8L, 5L, 11L, 10L, 15L, 12L, 6L, 9L, 
    19L, 3L, 13L, 17L, 20L, 22L, 18L, 0L, 14L, 16L, 0L, 21L), 
    RUS = c("1", "2", "11", "Ret", "Ret", "3", "9", "4", "Ret", 
    "6", "5", "12", "8", "15", "10", "7", "16", "13", "18", "0", 
    "17", "14", "0", "Ret"), ESP = c("Ret", "Ret", "4", "3", 
    "1", "2", "7", "5", "Ret", "Ret", "8", "6", "Ret", "10", 
    "9", "15", "14", "13", "16", "0", "11", "12", "0", "17"), 
    MON = c("7", "1", "2", "4", "Ret", "Ret", "3", "12", "6", 
    "5", "10", "8", "13", "Ret", "9", "Ret", "Ret", "Ret", "14", 
    "0", "11", "Ret", "0", "15"), CAN = c("5", "1", "7", "2", 
    "4", "6", "10", "3", "8", "11", "Ret", "9", "14", "12", "Ret", 
    "16", "18", "Ret", "17", "0", "13", "15", "0", "19"), EUR = c("1", 
    "5", "7", "2", "8", "4", "3", "6", "9", "Ret", "10", "Ret", 
    "13", "Ret", "11", "14", "12", "15", "Ret", "0", "16", "17", 
    "0", "18"), AUT = c("4", "1", "5", "Ret", "2", "3", "17", 
    "9", "19", "18", "20", "8", "7", "Ret", "6", "14", "13", 
    "12", "10", "0", "11", "15", "0", "16"), GBR = c("3", "1", 
    "4", "9", "2", "5", "6", "14", "7", "13", "11", "8", "Ret", 
    "10", "12", "17", "15", "Ret", "Ret", "0", "16", "Ret", "0", 
    "Ret"), HUN = c("2", "1", "3", "4", "5", "6", "11", "9", 
    "10", "7", "18", "8", "14", "16", "Ret", "15", "17", "12", 
    "19", "0", "13", "20", "0", "21"), GER = c("4", "1", "2", 
    "5", "3", "6", "10", "9", "7", "12", "Ret", "14", "13", "15", 
    "8", "16", "Ret", "19", "17", "0", "11", "18", "0", "20"), 
    BEL = c("1", "3", "2", "6", "11", "9", "5", "8", "4", "7", 
    "10", "Ret", "13", "14", "Ret", "Ret", "17", "15", "Ret", 
    "0", "12", "Ret", "16", "0"), ITA = c("1", "2", "5", "3", 
    "7", "4", "8", "6", "10", "14", "9", "15", "11", "Ret", "12", 
    "17", "Ret", "Ret", "Ret", "0", "13", "16", "18", "0"), SIN = c("1", 
    "3", "2", "5", "6", "4", "8", "Ret", "Ret", "7", "12", "14", 
    "DNS", "9", "Ret", "10", "13", "15", "16", "0", "11", "17", 
    "18", "0"), MAL = c("3", "Ret", "1", "Ret", "2", "4", "6", 
    "5", "8", "7", "13", "11", "Ret", "14", "9", "Ret", "Ret", 
    "10", "15", "0", "Ret", "12", "16", "0"), JPN = c(1L, 3L, 
    6L, 4L, 2L, 5L, 7L, 10L, 8L, 16L, 9L, 17L, 11L, 13L, 18L, 
    14L, 19L, 12L, 22L, 0L, 20L, 15L, 21L, 0L), USA = c("2", 
    "1", "3", "4", "Ret", "Ret", "8", "16", "Ret", "5", "7", 
    "6", "10", "11", "9", "12", "15", "13", "17", "0", "Ret", 
    "14", "18", "0"), MEX = c("2", "1", "3", "5", "4", "6", "10", 
    "8", "7", "13", "9", "16", "20", "18", "12", "17", "15", 
    "14", "Ret", "0", "19", "11", "21", "0"), BRA = c("2", "1", 
    "8", "5", "3", "Ret", "4", "11", "7", "10", "Ret", "6", "DNS", 
    "13", "16", "14", "9", "Ret", "15", "0", "Ret", "Ret", "12", 
    "0"), ABU = c("2", "1", "5", "3", "4", "6", "8", "Ret", "7", 
    "10", "9", "Ret", "11", "Ret", "Ret", "Ret", "16", "17", 
    "14", "0", "12", "15", "13", "0")), class = "data.frame", row.names = c("Rosberg", 
"Hamilton", "Ricciardo", "Vettel", "Verstappen", "Raikkonen", 
"Perez", "Bottas", "Hulkenberg", "Alonso", "Massa", "Sainz", 
"Grosjean", "Kvyat", "Button", "Magnussen", "Nasr", "Palmer", 
"Wehrlein", "Vandoorne", "Gutierrez", "Ericsson", "Ocon", "Haryanto"
))


`F1_table_2017` <-
structure(list(AUS = c("2", "1", "3", "4", "Ret", "5", "7", "10", 
"8", "11", "6", "Ret", "Ret", "Ret", "Ret", "13", "Ret", "WD", 
"9", "Ret", "0", "12", "0", "0", "0"), CHN = c("1", "2", "6", 
"5", "4", "3", "9", "10", "7", "12", "14", "Ret", "11", "8", 
"Ret", "Ret", "13", "0", "Ret", "15", "0", "Ret", "0", "0", "0"
), BHR = c("2", "1", "3", "4", "5", "Ret", "7", "10", "Ret", 
"9", "6", "Ret", "8", "Ret", "14", "DNS", "13", "11", "12", "Ret", 
"0", "0", "0", "0", "0"), RUS = c("4", "2", "1", "3", "Ret", 
"5", "6", "7", "10", "8", "9", "11", "Ret", "13", "DNS", "14", 
"Ret", "16", "12", "15", "0", "0", "0", "0", "0"), ESP = c("1", 
"2", "Ret", "Ret", "3", "Ret", "4", "5", "7", "6", "13", "16", 
"10", "14", "12", "Ret", "15", "8", "9", "11", "0", "0", "0", 
"0", "0"), MON = c("7", "1", "4", "2", "3", "5", "13", "12", 
"6", "Ret", "9", "15", "8", "10", "0", "Ret", "11", "Ret", "14", 
"Ret", "0", "0", "0", "Ret", "0"), CAN = c("1", "4", "2", "7", 
"3", "Ret", "5", "6", "Ret", "8", "Ret", "9", "10", "12", "16", 
"14", "11", "15", "Ret", "13", "0", "0", "0", "0", "0"), AZE = c("5", 
"4", "2", "14", "1", "Ret", "Ret", "6", "8", "Ret", "Ret", "3", 
"13", "7", "9", "12", "Ret", "10", "Ret", "11", "0", "0", "0", 
"0", "0"), AUT = c("4", "2", "1", "5", "3", "Ret", "7", "8", 
"Ret", "13", "9", "10", "6", "Ret", "Ret", "12", "11", "14", 
"16", "15", "0", "0", "0", "0", "0"), GBR = c("1", "7", "2", 
"3", "5", "4", "9", "8", "Ret", "6", "10", "16", "13", "12", 
"Ret", "11", "DNS", "17", "15", "14", "0", "0", "0", "0", "0"
), HUN = c("4", "1", "3", "2", "Ret", "5", "8", "9", "7", "17", 
"WD", "14", "Ret", "13", "6", "10", "12", "15", "11", "16", "0", 
"0", "0", "0", "Ret"), BEL = c("1", "2", "5", "4", "3", "Ret", 
"17", "9", "10", "6", "8", "11", "7", "15", "Ret", "14", "13", 
"Ret", "12", "16", "0", "0", "0", "0", "0"), ITA = c("1", "3", 
"2", "5", "4", "10", "9", "6", "14", "13", "8", "7", "15", "11", 
"17", "Ret", "Ret", "16", "12", "18", "0", "0", "0", "0", "0"
), SIN = c("1", "Ret", "3", "Ret", "2", "Ret", "5", "10", "4", 
"Ret", "11", "8", "9", "Ret", "Ret", "7", "6", "12", "Ret", "Ret", 
"0", "0", "0", "0", "0"), MAL = c("2", "4", "5", "DNS", "3", 
"1", "6", "10", "Ret", "16", "9", "8", "13", "12", "11", "7", 
"15", "17", "0", "18", "14", "0", "0", "0", "0"), JPN = c("1", 
"Ret", "4", "5", "3", "2", "7", "6", "Ret", "Ret", "10", "Ret", 
"9", "8", "11", "14", "12", "15", "0", "Ret", "13", "0", "0", 
"0", "0"), USA = c("1", "2", "5", "3", "Ret", "4", "8", "6", 
"7", "Ret", "9", "11", "14", "16", "Ret", "12", "0", "Ret", "10", 
"15", "0", "0", "13", "0", "0"), MEX = c("9", "4", "2", "3", 
"Ret", "1", "7", "5", "Ret", "Ret", "11", "6", "15", "8", "10", 
"12", "0", "14", "0", "Ret", "13", "0", "Ret", "0", "0"), BRA = c("4", 
"1", "2", "3", "6", "5", "9", "Ret", "11", "10", "7", "16", "15", 
"Ret", "8", "Ret", "0", "14", "0", "13", "12", "0", "Ret", "0", 
"0"), ABU = c("2", "3", "1", "4", "Ret", "5", "7", "8", "Ret", 
"6", "10", "18", "11", "13", "9", "12", "0", "14", "0", "17", 
"16", "0", "15", "0", "0")), class = "data.frame", row.names = c("Hamilton", 
"Vettel", "Bottas", "Raikkonen", "Ricciardo", "Verstappen", "Perez", 
"Ocon", "Sainz", "Hulkenberg", "Massa", "Stroll", "Grosjean", 
"Magnussen", "Alonso", "Vandoorne", "Palmer", "Wehrlein", "Kvyat", 
"Ericsson", "Gasly", "Giovinazzi", "Hartley", "Button", "Resta"
))

`F1_table_2018` <-
structure(list(AUS = c("2", "1", "3", "6", "8", "4", "7", "11", 
"Ret", "10", "5", "12", "13", "Ret", "Ret", "9", "Ret", "14", 
"15", "Ret"), BHR = c("3", "1", "Ret", "Ret", "2", "Ret", "6", 
"16", "5", "11", "7", "10", "12", "13", "4", "8", "9", "14", 
"17", "15"), CHN = c(4L, 8L, 3L, 5L, 2L, 1L, 6L, 12L, 10L, 9L, 
7L, 11L, 19L, 17L, 18L, 13L, 16L, 14L, 20L, 15L), AZE = c("1", 
"4", "2", "Ret", "14", "Ret", "Ret", "3", "13", "5", "7", "Ret", 
"6", "Ret", "12", "9", "11", "8", "10", "Ret"), ESP = c("1", 
"4", "Ret", "3", "2", "5", "Ret", "9", "6", "7", "8", "Ret", 
"10", "Ret", "Ret", "Ret", "13", "11", "12", "14"), MON = c("3", 
"2", "4", "9", "5", "1", "8", "12", "13", "10", "Ret", "6", "18", 
"15", "7", "14", "11", "17", "19", "16"), CAN = c("5", "1", "6", 
"3", "2", "4", "7", "14", "13", "8", "Ret", "9", "10", "12", 
"11", "16", "15", "Ret", "Ret", "17"), FRA = c("1", "5", "3", 
"2", "7", "4", "9", "Ret", "6", "8", "16", "Ret", "10", "11", 
"Ret", "12", "13", "17", "14", "15"), AUT = c("Ret", "3", "2", 
"1", "Ret", "Ret", "Ret", "7", "5", "12", "8", "6", "9", "4", 
"11", "15", "10", "14", "Ret", "13"), GBR = c("2", "1", "3", 
"15", "4", "5", "6", "10", "9", "Ret", "8", "7", "Ret", "Ret", 
"13", "11", "Ret", "12", "Ret", "14"), GER = c("1", "Ret", "3", 
"4", "2", "Ret", "5", "7", "11", "12", "16", "8", "15", "6", 
"14", "13", "9", "Ret", "10", "Ret"), HUN = c("1", "2", "3", 
"Ret", "5", "4", "12", "14", "7", "9", "8", "13", "Ret", "10", 
"6", "Ret", "15", "17", "11", "16"), BEL = c("2", "1", "Ret", 
"3", "4", "Ret", "Ret", "5", "8", "11", "Ret", "6", "Ret", "7", 
"9", "15", "10", "13", "14", "12"), ITA = c("1", "4", "2", "5", 
"3", "Ret", "13", "7", "16", "8", "Ret", "6", "11", "DSQ", "14", 
"12", "15", "9", "Ret", "10"), SIN = c("1", "3", "5", "2", "4", 
"6", "10", "16", "18", "8", "7", "Ret", "9", "15", "13", "12", 
"11", "14", "17", "19"), RUS = c("1", "3", "4", "5", "2", "6", 
"12", "10", "8", "17", "14", "9", "7", "11", "Ret", "16", "13", 
"15", "Ret", "18"), JPN = c("1", "6", "5", "3", "2", "4", "Ret", 
"7", "Ret", "10", "14", "9", "Ret", "8", "11", "15", "12", "17", 
"13", "16"), USA = c("3", "4", "1", "2", "5", "Ret", "6", "8", 
"DSQ", "7", "Ret", "DSQ", "Ret", "Ret", "12", "11", "10", "14", 
"9", "13"), MEX = c("4", "2", "3", "1", "5", "Ret", "6", "Ret", 
"15", "Ret", "Ret", "11", "7", "16", "10", "8", "9", "12", "14", 
"13"), BRA = c("1", "6", "3", "2", "5", "4", "Ret", "10", "9", 
"12", "17", "14", "7", "8", "13", "15", "Ret", "18", "11", "16"
), ABU = c("1", "2", "Ret", "3", "5", "4", "Ret", "8", "10", 
"6", "11", "Ret", "7", "9", "Ret", "14", "Ret", "13", "12", "15"
)), class = "data.frame", row.names = c("Hamilton", "Vettel", 
"Raikkonen", "Verstappen", "Bottas", "Ricciardo", "Hulkenberg", 
"Perez", "Magnussen", "Sainz", "Alonso", "Ocon", "Leclerc", "Grosjean", 
"Gasly", "Vandoorne", "Ericsson", "Stroll", "Hartley", "Sirotkin"
))

`F1_table_2019` <-
structure(list(AUS = c("2", "1", "3", "5", "4", "Ret", "11", 
"14", "Ret", "13", "12", "8", "10", "7", "9", "6", "15", "Ret", 
"17", "16"), BHR = c("1", "2", "4", "3", "5", "19", "8", "9", 
"18", "10", "6", "7", "12", "17", "14", "13", "11", "Ret", "16", 
"15"), CHN = c("1", "2", "4", "5", "3", "14", "6", "10", "7", 
"8", "18", "9", "Ret", "Ret", "12", "13", "15", "11", "17", "16"
), AZE = c("2", "1", "4", "5", "3", "7", "Ret", "11", "Ret", 
"6", "8", "10", "Ret", "14", "9", "13", "12", "Ret", "16", "15"
), ESP = c("1", "2", "3", "5", "4", "8", "6", "11", "12", "15", 
"Ret", "14", "9", "13", "Ret", "7", "16", "10", "18", "17"), 
    MON = c("1", "3", "4", "Ret", "2", "6", "5", "8", "9", "12", 
    "11", "17", "7", "13", "16", "14", "19", "10", "18", "15"
    ), CAN = c("1", "4", "5", "3", "2", "11", "8", "Ret", "6", 
    "12", "Ret", "15", "10", "7", "9", "17", "13", "14", "18", 
    "16"), FRA = c("1", "2", "4", "3", "5", "6", "10", "15", 
    "11", "12", "9", "7", "14", "8", "13", "17", "16", "Ret", 
    "18", "19"), AUT = c(5L, 3L, 1L, 2L, 4L, 8L, 7L, 15L, 12L, 
    11L, 6L, 9L, 17L, 13L, 14L, 19L, 10L, 16L, 20L, 18L), GBR = c("1", 
    "2", "5", "3", "16", "6", "4", "12", "7", "17", "11", "8", 
    "9", "10", "13", "Ret", "Ret", "Ret", "15", "14"), GER = c("9", 
    "Ret", "1", "Ret", "2", "5", "14", "6", "Ret", "Ret", "Ret", 
    "12", "3", "Ret", "4", "8", "13", "7", "10", "11"), HUN = c("1", 
    "8", "2", "4", "3", "5", "6", "10", "14", "11", "9", "7", 
    "15", "12", "17", "13", "18", "Ret", "19", "16"), BEL = c("2", 
    "3", "Ret", "1", "4", "Ret", "9", "5", "14", "6", "11", "16", 
    "7", "8", "10", "12", "18", "13", "17", "15"), ITA = c("3", 
    "2", "8", "1", "13", "Ret", "11", "6", "4", "7", "10", "15", 
    "Ret", "5", "12", "Ret", "9", "16", "17", "14"), SIN = c("4", 
    "5", "3", "2", "1", "12", "8", "6", "14", "Ret", "7", "Ret", 
    "15", "9", "13", "17", "10", "11", "16", "Ret"), RUS = c("1", 
    "2", "4", "3", "Ret", "6", "14", "5", "Ret", "7", "8", "13", 
    "12", "10", "11", "9", "15", "Ret", "Ret", "Ret"), JPN = c("3", 
    "1", "Ret", "6", "2", "5", "7", "4", "DSQ", "8", "11", "12", 
    "10", "DSQ", "9", "15", "14", "13", "17", "16"), MEX = c("1", 
    "3", "6", "4", "2", "13", "9", "5", "8", "7", "Ret", "Ret", 
    "11", "10", "12", "15", "14", "17", "18", "16"), USA = c("2", 
    "1", "3", "4", "Ret", "8", "16", "5", "6", "10", "7", "11", 
    "12", "9", "13", "18", "14", "15", "Ret", "17"), BRA = c("7", 
    "Ret", "1", "18", "17", "3", "2", "14", "6", "9", "8", "4", 
    "10", "15", "19", "11", "5", "13", "16", "12"), ABU = c("1", 
    "4", "2", "3", "5", "10", "18", "6", "11", "7", "8", "13", 
    "9", "12", "Ret", "14", "16", "15", "19", "17")), class = "data.frame", row.names = c("Hamilton", 
"Bottas", "Verstappen", "Leclerc", "Vettel", "Sainz", "Gasly", 
"Albon", "Ricciardo", "Perez", "Norris", "Raikkonen", "Kvyat", 
"Hulkenberg", "Stroll", "Magnussen", "Giovinazzi", "Grosjean", 
"Kubica", "Russell"))