The R Project SVN R

Rev

Rev 59039 | Rev 85904 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 59039 Rev 61168
Line 33... Line 33...
33 
boxplot(count ~ spray, data = InsectSprays,
 33 
boxplot(count ~ spray, data = InsectSprays,
34 
        xlab = "Type of spray", ylab = "Insect count",
 34 
        xlab = "Type of spray", ylab = "Insect count",
35 
        main = "InsectSprays data", varwidth = TRUE, col = "lightgray")
 35 
        main = "InsectSprays data", varwidth = TRUE, col = "lightgray")
36 
fm1 <- aov(count ~ spray, data = InsectSprays)
 36 
fm1 <- aov(count ~ spray, data = InsectSprays)
37 
summary(fm1)
 37 
summary(fm1)
38 
opar <- par(mfrow = c(2,2), oma = c(0, 0, 1.1, 0))
 38 
opar <- par(mfrow = c(2, 2), oma = c(0, 0, 1.1, 0))
39 
plot(fm1)
 39 
plot(fm1)
40 
fm2 <- aov(sqrt(count) ~ spray, data = InsectSprays)
 40 
fm2 <- aov(sqrt(count) ~ spray, data = InsectSprays)
41 
summary(fm2)
 41 
summary(fm2)
42 
plot(fm2)
 42 
plot(fm2)
43 
par(opar)
 43 
par(opar)