data/Problem13.2.R
In ehassler/MontgomeryDAE: MontgomeryDAE - Data and examples from Montgomery's "Design and Analysis of Experiments"
Problem13.2 <- data.frame(
"Inspector" = c(
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3
),
"Test" = c(
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3
),
"Part" = c(
1,
1,
1,
1,
1,
1,
1,
1,
1,
2,
2,
2,
2,
2,
2,
2,
2,
2,
3,
3,
3,
3,
3,
3,
3,
3,
3,
4,
4,
4,
4,
4,
4,
4,
4,
4,
5,
5,
5,
5,
5,
5,
5,
5,
5,
6,
6,
6,
6,
6,
6,
6,
6,
6,
7,
7,
7,
7,
7,
7,
7,
7,
7,
8,
8,
8,
8,
8,
8,
8,
8,
8,
9,
9,
9,
9,
9,
9,
9,
9,
9,
10,
10,
10,
10,
10,
10,
10,
10,
10
),
"Impedance" = c(
37,
38,
37,
41,
41,
40,
41,
42,
41,
42,
41,
43,
42,
42,
42,
43,
42,
43,
30,
31,
31,
31,
31,
31,
29,
30,
28,
42,
43,
42,
43,
43,
43,
42,
42,
42,
28,
30,
29,
29,
30,
29,
31,
29,
29,
42,
42,
43,
45,
45,
45,
44,
46,
45,
25,
26,
27,
28,
28,
30,
29,
27,
27,
40,
40,
40,
43,
42,
42,
43,
43,
41,
25,
25,
25,
27,
29,
28,
26,
26,
26,
35,
34,
34,
35,
35,
34,
35,
34,
35
))
ehassler/MontgomeryDAE documentation built on March 20, 2021, 7:08 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Problem13.2 <- data.frame(
"Inspector" = c(
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3,
1,
1,
1,
2,
2,
2,
3,
3,
3
),
"Test" = c(
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3,
1,
2,
3
),
"Part" = c(
1,
1,
1,
1,
1,
1,
1,
1,
1,
2,
2,
2,
2,
2,
2,
2,
2,
2,
3,
3,
3,
3,
3,
3,
3,
3,
3,
4,
4,
4,
4,
4,
4,
4,
4,
4,
5,
5,
5,
5,
5,
5,
5,
5,
5,
6,
6,
6,
6,
6,
6,
6,
6,
6,
7,
7,
7,
7,
7,
7,
7,
7,
7,
8,
8,
8,
8,
8,
8,
8,
8,
8,
9,
9,
9,
9,
9,
9,
9,
9,
9,
10,
10,
10,
10,
10,
10,
10,
10,
10
),
"Impedance" = c(
37,
38,
37,
41,
41,
40,
41,
42,
41,
42,
41,
43,
42,
42,
42,
43,
42,
43,
30,
31,
31,
31,
31,
31,
29,
30,
28,
42,
43,
42,
43,
43,
43,
42,
42,
42,
28,
30,
29,
29,
30,
29,
31,
29,
29,
42,
42,
43,
45,
45,
45,
44,
46,
45,
25,
26,
27,
28,
28,
30,
29,
27,
27,
40,
40,
40,
43,
42,
42,
43,
43,
41,
25,
25,
25,
27,
29,
28,
26,
26,
26,
35,
34,
34,
35,
35,
34,
35,
34,
35
))
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.