friday <-
structure(list(type = structure(c(3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
1L, 1L, 1L, 1L, 1L, 1L), .Label = c("accident", "shopping", "traffic"
), class = "factor"), date = structure(c(2L, 2L, 4L, 4L, 3L, 
3L, 5L, 5L, 6L, 6L, 2L, 4L, 3L, 5L, 6L, 2L, 4L, 3L, 5L, 6L, 2L, 
4L, 3L, 5L, 6L, 2L, 4L, 3L, 5L, 6L, 2L, 4L, 3L, 5L, 6L, 2L, 4L, 
3L, 5L, 6L, 2L, 4L, 3L, 5L, 6L, 2L, 4L, 3L, 5L, 6L, 2L, 4L, 3L, 
5L, 6L, 1L, 2L, 4L, 3L, 5L, 6L), .Label = c("1989,  October", 
"1990,  July", "1991,  December", "1991,  September", "1992,  March", 
"1992,  November"), class = "factor"), sixth = c(139246L, 134012L, 
137055L, 133732L, 123552L, 121139L, 128293L, 124631L, 124609L, 
117584L, 4942L, 4895L, 4805L, 4570L, 4506L, 6754L, 6704L, 5871L, 
6026L, 5676L, 3685L, 3799L, 3563L, 3673L, 3558L, 5751L, 5367L, 
4949L, 5298L, 5199L, 4141L, 3674L, 3707L, 3633L, 3688L, 4266L, 
3954L, 4028L, 3689L, 3920L, 7138L, 6568L, 6514L, 6115L, 5325L, 
6502L, 6416L, 6422L, 6748L, 7023L, 4083L, 4107L, 4168L, 4174L, 
4079L, 9L, 6L, 11L, 11L, 3L, 5L), thirteenth = c(138548L, 132908L, 
136018L, 131843L, 121641L, 118723L, 125532L, 120249L, 122770L, 
117263L, 4882L, 4736L, 4784L, 4603L, 4629L, 6998L, 6707L, 5662L, 
6162L, 5665L, 3848L, 3680L, 3554L, 3676L, 3613L, 5993L, 5320L, 
4960L, 5467L, 5092L, 4389L, 3660L, 3822L, 3730L, 3615L, 4532L, 
3964L, 3926L, 3692L, 3853L, 6836L, 6363L, 6555L, 6412L, 6099L, 
6648L, 6398L, 6503L, 6716L, 7057L, 4277L, 4334L, 4050L, 4198L, 
4105L, 13L, 12L, 14L, 10L, 4L, 12L), diff = c(698L, 1104L, 1037L, 
1889L, 1911L, 2416L, 2761L, 4382L, 1839L, 321L, 60L, 159L, 21L, 
-33L, -123L, -244L, -3L, 209L, -136L, 11L, -163L, 119L, 9L, -3L, 
-55L, -242L, 47L, -11L, -169L, 107L, -248L, 14L, -115L, -97L, 
73L, -266L, -10L, 102L, -3L, 67L, 302L, 205L, -41L, -297L, -774L, 
-146L, 18L, -81L, 32L, -34L, -194L, -227L, 118L, -24L, -26L, 
-4L, -6L, -3L, 1L, -1L, -7L), location = structure(c(1L, 2L, 
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 
8L, 8L, 5L, 5L, 5L, 5L, 5L, 3L, 3L, 3L, 3L, 3L, 9L, 9L, 9L, 9L, 
9L, 6L, 6L, 6L, 6L, 6L, 10L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 
11L, 11L, 4L, 4L, 4L, 4L, 4L, 12L, 12L, 12L, 12L, 12L, 12L), .Label = c("7 to 8", 
"9 to 10", "Chichester  ", "Crystal Palace ", "Dorking  ", "East Grinstead ", 
"Epsom  ", "Guildford  ", "Horsham  ", "Lewisham  ", "Nine Elms ", 
"SWTRHA hospital "), class = "factor")), row.names = c(NA, -61L
), class = c("tbl_df", "tbl", "data.frame"))