snow.nyc<-c(0.05, 2.0, 5.2, 10.9, 34.0,
            0.00, 1.9, 5.6, 11.8, 27.9,
            0.05, 0.5, 2.8, 6.1, 25.5,
            0.00, 0.00, 0.05, 0.20, 10.2,
            0.00, 0.00, 0.00, 0.00, 0.05,
            0.00, 0.00, 0.00, 0.00, 0.00,
            0.00, 0.00, 0.00, 0.00, 0.00,
            0.00, 0.00, 0.00, 0.00, 0.00,
            0.00, 0.00, 0.00, 0.00, 0.00,
            0.00, 0.00, 0.00, 0.00, 0.8,
            0.00, 0.00, 0.05, 0.10, 12.8,
            0.05, 0.70, 2.8, 7.7, 29.6)

snow.nyc<-matrix(snow.nyc, nrow=12, ncol=5, byrow=T)

rownames(snow.nyc)<-c('JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN', 'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC')

boxplot(data.frame(t(snow.nyc)), ylab='Total amount of snow', main='Snow in NYC by month')