Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
STAT 215 Multifactor ANOVA I
Colin Reimer Dawson
Oberlin College
STAT 215 Multifactor ANOVA I Colin Reimer Dawson Oberlin College - - PowerPoint PPT Presentation
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms STAT 215 Multifactor ANOVA I Colin Reimer Dawson Oberlin College November 28, 2017 1 / 25 Outline Two-Way ANOVA: Additive Model FIT:
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
Oberlin College
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
library("Stat2Data"); library("mosaic"); library("gplots") data("Alfalfa") plotmeans(Ht4 ~ factor(Acid, levels = c("water", "1.5HCl", "3.0HCl")), data = Alfalfa, xlab = "Solution", ylab = "Height (in.)") 1 2 3 4 Solution Height (in.)
1.5HCl 3.0HCl n=5 n=5 n=5
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
plotmeans(Ht4 ~ factor(Row), data = Alfalfa, xlab = "Row", ylab = "Height (in.)") −2 2 4 6 8 Row Height (in.)
b c d e n=3 n=3 n=3 n=3 n=3
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
nj,k
j
nj,k
k
nj,k
j,k,i
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
library("mosaic"); library("Stat2Data") data("Alfalfa") two.way.model <- aov(Ht4 ~ Acid + Row, data = Alfalfa) summary(two.way.model) Df Sum Sq Mean Sq F value Pr(>F) Acid 2 6.852 3.426 4.513 0.0487 * Row 4 4.183 1.046 1.378 0.3235 Residuals 8 6.072 0.759
0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
## Note: this only works if you used aov(), not lm() model.tables(two.way.model, type = "means") Tables of means Grand mean 1.74 Acid Acid 1.5HCl 3.0HCl water 1.466 1.084 2.670 Row Row a b c d e 1.16 1.57 1.25 2.26 2.46
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
## Note: this only works if you used aov(), not lm() model.tables(two.way.model, type = "effects") Tables of effects Acid Acid 1.5HCl 3.0HCl water
0.930 Row Row a b c d e
0.52 0.72 ## Notice that the alphas and betas each sum to zero
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
TukeyHSD(two.way.model) Tukey multiple comparisons of means 95% family-wise confidence level Fit: aov(formula = Ht4 ~ Acid + Row, data = Alfalfa) $Acid diff lwr upr p adj 3.0HCl-1.5HCl -0.382 -1.95650626 1.192506 0.7739299 water-1.5HCl 1.204 -0.37050626 2.778506 0.1338368 water-3.0HCl 1.586 0.01149374 3.160506 0.0484908 $Row diff lwr upr p adj b-a 0.41 -2.04758 2.86758 0.9750089 c-a 0.09 -2.36758 2.54758 0.9999282 d-a 1.10 -1.35758 3.55758 0.5642564 e-a 1.30 -1.15758 3.75758 0.4211177 c-b -0.32 -2.77758 2.13758 0.9899007 d-b 0.69 -1.76758 3.14758 0.8613573 e-b 0.89 -1.56758 3.34758 0.7251160 d-c 1.01 -1.44758 3.46758 0.6333208 e-c 1.21 -1.24758 3.66758 0.4830625 e-d 0.20 -2.25758 2.65758 0.9983249
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
library("mosaic") GlueData <- read.file("http://colinreimerdawson.com/data/glue.csv") ### Plot the means with(GlueData, interaction.plot(Thickness, Glue, Force)) 50 55 60 65 70 75 80 Thickness mean of Force Moderate Thick Thin Glue Wood Plastic
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms
Outline Two-Way ANOVA: Additive Model FIT: Estimating Parameters Pairwise Comparisons Interaction Terms