battery: Two Factorial Experiment for Battery Data

In ACSWR: A Companion Package for the Book "A Course in Statistics with R"

Description

An experiment where the life of a battery is modeled as a function of the extreme variations in temperature of three levels 15, 70, and 1250 Fahrenheit and three type of plate material. Here, the engineer has no control on the temperature variations once the device leaves the factory. Thus, the task of the engineer is to investigate two major problems: (i) The effect of material type and temperature on the life of the device, and (ii) Finding the type of material which has least variation among the varying temperature levels. For each combination of the temperature and material, 4 replications of the life of battery are tested.

Usage

data(battery)

Format

A data frame with 36 observations on the following 3 variables.

Life

battery life

Material

the type of plate material

Temperature

three extreme variations of temperature

Source

Montgomery, D. C. (1976-2012). Design and Analysis of Experiments, 8e. J.Wiley.

Examples

data(battery)
names(battery) <- c("L","M","T")
battery$M <- as.factor(battery$M)
battery$T <- as.factor(battery$T)
battery.aov <- aov(L~M*T,data=battery)
model.matrix(battery.aov)
summary(battery.aov)

Example output

   (Intercept) M2 M3 T70 T125 M2:T70 M3:T70 M2:T125 M3:T125
1            1  0  0   0    0      0      0       0       0
2            1  0  0   0    0      0      0       0       0
3            1  0  0   0    0      0      0       0       0
4            1  0  0   0    0      0      0       0       0
5            1  1  0   0    0      0      0       0       0
6            1  1  0   0    0      0      0       0       0
7            1  1  0   0    0      0      0       0       0
8            1  1  0   0    0      0      0       0       0
9            1  0  1   0    0      0      0       0       0
10           1  0  1   0    0      0      0       0       0
11           1  0  1   0    0      0      0       0       0
12           1  0  1   0    0      0      0       0       0
13           1  0  0   1    0      0      0       0       0
14           1  0  0   1    0      0      0       0       0
15           1  0  0   1    0      0      0       0       0
16           1  0  0   1    0      0      0       0       0
17           1  1  0   1    0      1      0       0       0
18           1  1  0   1    0      1      0       0       0
19           1  1  0   1    0      1      0       0       0
20           1  1  0   1    0      1      0       0       0
21           1  0  1   1    0      0      1       0       0
22           1  0  1   1    0      0      1       0       0
23           1  0  1   1    0      0      1       0       0
24           1  0  1   1    0      0      1       0       0
25           1  0  0   0    1      0      0       0       0
26           1  0  0   0    1      0      0       0       0
27           1  0  0   0    1      0      0       0       0
28           1  0  0   0    1      0      0       0       0
29           1  1  0   0    1      0      0       1       0
30           1  1  0   0    1      0      0       1       0
31           1  1  0   0    1      0      0       1       0
32           1  1  0   0    1      0      0       1       0
33           1  0  1   0    1      0      0       0       1
34           1  0  1   0    1      0      0       0       1
35           1  0  1   0    1      0      0       0       1
36           1  0  1   0    1      0      0       0       1
attr(,"assign")
[1] 0 1 1 2 2 3 3 3 3
attr(,"contrasts")
attr(,"contrasts")$M
[1] "contr.treatment"

attr(,"contrasts")$T
[1] "contr.treatment"

            Df Sum Sq Mean Sq F value   Pr(>F)    
M            2  10684    5342   7.911  0.00198 ** 
T            2  39119   19559  28.968 1.91e-07 ***
M:T          4   9614    2403   3.560  0.01861 *  
Residuals   27  18231     675                     
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

ACSWR documentation built on May 2, 2019, 6:53 a.m.