Untitled

fileName <- 
  "http://fisher.stats.uwo.ca/faculty/aim/2018/3859A/data/WiscLottery.csv" 
library(readr)
wdata <- read_csv(fileName, skip=14)

My loaded data is in this table format

## # A tibble: 2 x 10
##     ZIP PERPERHH MEDSCHYR MEDHVL PRCRENT PRC55P HHMEDAGE MEDINC SALES   POP
##   <int>    <dbl>    <dbl>  <dbl>   <int>  <int>    <int>  <dbl> <dbl> <int>
## 1 53003      3       12.6   71.3      21     38       48   54.2 1285.   435
## 2 53033      3.2     12.9   98         6     28       46   70.7 3571.  4823