str(Hurrican)
attach(Hurrican)
barplot(table(hurrican),col="blue",main="Problem 1.38",
xlab="Number of Hurricanes",ylab="Number of Seasons")
boxplot(storms~ElNino)
anova(lm(storms~ElNino))
detach(Hurrican)
Run the code above in your browser using DataLab