Simulation for Data Science with R

Winning the lottery

Let us look at the lottery numbers from Britain from the last seven months. With some tricks we can grep them from the Internet:

library("RCurl")
URL <- "https://www.national-lottery.co.uk/results/euromillions/draw-history/csv"
lotto <- read.csv(textConnection(getURL(URL)))

The structure of these data sets is as follows:

str(lotto)
## 'data.frame':    52 obs. of  10 variables:
##  $ DrawDate            : Factor w/ 52 levels "01-Apr-2016",..: 24 18 12 6 49 45 37 33 25 21 ...
##  $ Ball.1              : int  7 2 32 8 4 10 17 11 13 1 ...
##  $ Ball.2              : int  15 26 34 23 5 17 26 14 14 5 ...
##  $ Ball.3              : int  28 27 40 24 25 31 32 15 32 9 ...
##  $ Ball.4              : int  31 40 45 34 28 32 34 27 37 22 ...
##  $ Ball.5              : int  42 49 48 38 43 42 43 44 48 38 ...
## $ Lucky.Star.1 ...