Problem13.19 <- data.frame(
"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.