data(SnowGR)
SeasonStart
Year in which season started (July is start of season)SeasonEnd
Year in which season ended (June is end of season)Jul
Inches of snow in JulyAug
Inches of snow in AugustSep
Inches of snow in SeptemberOct
Inches of snow in OctoberNov
Inches of snow in NovemberDec
Inches of snow in DecemberJan
Inches of snow in JanuaryFeb
Inches of snow in FebruaryMar
Inches of snow in MarchApr
Inches of snow in AprilMay
Inches of snow in MayJun
Inches of snow in JuneTotal
Inches of snow for entire season (July-June)data(SnowGR)
if (require(mosaic)) {
favstats(SnowGR$Total)
histogram(~Total, data=SnowGR)
xyplot(Total ~ SeasonStart, SnowGR, type=c('p','smooth'))
}
if (require(reshape2)) {
Snow2 <- melt(SnowGR, id=1:2)
names(Snow2)[3:4] <- c('Time','Snow')
bwplot(Snow ~ Time, Snow2)
}
Run the code above in your browser using DataLab