data(SnowGR)
histogram(~Total, data=SnowGR)
favstats(SnowGR$Total)
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