Problem5.43 <- data.frame(
"Block" = c(
'Block 3',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3',
'Block 1',
'Block 2',
'Block 3'
),
"CycleTime" = c(
40,
40,
40,
50,
50,
50,
60,
60,
60,
40,
40,
40,
50,
50,
50,
60,
60,
60,
40,
40,
40,
50,
50,
50,
60,
60,
60,
40,
40,
40,
50,
50,
50,
60,
60,
60,
40,
40,
40,
50,
50,
50,
60,
60,
60,
40,
40,
40,
50,
50,
50,
60,
60,
60
),
"Operator" = 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,
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
),
"Temperature" = c(
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
300,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350,
350
),
"Score" = c(
23,
24,
25,
36,
35,
36,
28,
24,
27,
27,
28,
26,
34,
38,
39,
35,
35,
34,
31,
32,
29,
33,
34,
35,
26,
27,
25,
24,
23,
28,
37,
39,
35,
26,
29,
25,
38,
36,
35,
34,
38,
36,
36,
37,
34,
34,
36,
39,
34,
36,
31,
28,
26,
24
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.