# NOT RUN {
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