# NOT RUN {
T1 <- xtabs(~hurrican, data = Hurrican)
T1
barplot(T1, col = "blue", main = "Problem 1.38",
xlab = "Number of hurricanes",
ylab = "Number of seasons")
boxplot(storms ~ elnino, data = Hurrican,
col = c("blue", "yellow", "red"))
anova(lm(storms ~ elnino, data = Hurrican))
rm(T1)
# }
Run the code above in your browser using DataLab