"vacation" <-
c(23, 12, 10, 34, 25, 16, 27, 18, 28, 13, 14, 20, 8, 21, 23, 
33, 30, 13, 16, 14, 38, 19, 6, 11, 15, 21, 10, 39, 42, 25, 12, 
17, 19, 26, 20)