> > bacteria package logcount 1 1 7.66 2 1 6.98 3 1 7.80 4 2 5.26 5 2 5.44 6 2 5.80 7 3 7.41 8 3 7.33 9 3 7.04 10 4 3.51 11 4 2.91 12 4 3.66 > > package <- factor(package) > > tapply(logcount,package,mean) 1 2 3 4 7.48 5.50 7.26 3.36 > > tapply(logcount,package,sd) 1 2 3 4 0.4386342 0.2749545 0.1946792 0.3968627 > > ex_02_01.mod <- aov(logcount ~ package) > > summary.lm(ex_02_01.mod) Call: aov(formula = logcount ~ package) Residuals: Min 1Q Median 3Q Max -0.500 -0.225 0.110 0.210 0.320 Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) 7.4800 0.1965 38.064 2.49e-10 *** package2 -1.9800 0.2779 -7.125 9.95e-05 *** package3 -0.2200 0.2779 -0.792 0.451 package4 -4.1200 0.2779 -14.825 4.22e-07 *** --- Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 Residual standard error: 0.3404 on 8 degrees of freedom Multiple R-squared: 0.9726, Adjusted R-squared: 0.9623 F-statistic: 94.58 on 3 and 8 DF, p-value: 1.376e-06 > anova(ex_02_01.mod) Analysis of Variance Table Response: logcount Df Sum Sq Mean Sq F value Pr(>F) package 3 32.873 10.9576 94.584 1.376e-06 *** Residuals 8 0.927 0.1158 --- Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 > > > ex_02_01a.mod <- aov(logcount ~ package -1) > > summary.lm(ex_02_01a.mod) Call: aov(formula = logcount ~ package - 1) Residuals: Min 1Q Median 3Q Max -0.500 -0.225 0.110 0.210 0.320 Coefficients: Estimate Std. Error t value Pr(>|t|) package1 7.4800 0.1965 38.06 2.49e-10 *** package2 5.5000 0.1965 27.99 2.87e-09 *** package3 7.2600 0.1965 36.94 3.16e-10 *** package4 3.3600 0.1965 17.10 1.39e-07 *** --- Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 Residual standard error: 0.3404 on 8 degrees of freedom Multiple R-squared: 0.9979, Adjusted R-squared: 0.9969 F-statistic: 972.4 on 4 and 8 DF, p-value: 8.861e-11 > anova(ex_02_01a.mod) Analysis of Variance Table Response: logcount Df Sum Sq Mean Sq F value Pr(>F) package 4 450.59 112.648 972.36 8.861e-11 *** Residuals 8 0.93 0.116 --- Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 >