Problem9.4 <- data.frame(
"Brand" = c(
'1',
'1',
'2',
'2',
'3',
'3',
'1',
'1',
'2',
'2',
'3',
'3',
'1',
'1',
'2',
'2',
'3',
'3',
'1',
'1',
'2',
'2',
'3',
'3',
'1',
'1',
'2',
'2',
'3',
'3',
'1',
'1',
'2',
'2',
'3',
'3',
'1',
'1',
'2',
'2',
'3',
'3',
'1',
'1',
'2',
'2',
'3',
'3',
'1',
'1',
'2',
'2',
'3',
'3'
),
"Strength" = c(
'1',
'1',
'1',
'1',
'1',
'1',
'2',
'2',
'2',
'2',
'2',
'2',
'3',
'3',
'3',
'3',
'3',
'3',
'1',
'1',
'1',
'1',
'1',
'1',
'2',
'2',
'2',
'2',
'2',
'2',
'3',
'3',
'3',
'3',
'3',
'3',
'1',
'1',
'1',
'1',
'1',
'1',
'2',
'2',
'2',
'2',
'2',
'2',
'3',
'3',
'3',
'3',
'3',
'3'
),
"Dog" = c(
'1',
'1',
'1',
'1',
'1',
'1',
'1',
'1',
'1',
'1',
'1',
'1',
'1',
'1',
'1',
'1',
'1',
'1',
'2',
'2',
'2',
'2',
'2',
'2',
'2',
'2',
'2',
'2',
'2',
'2',
'2',
'2',
'2',
'2',
'2',
'2',
'3',
'3',
'3',
'3',
'3',
'3',
'3',
'3',
'3',
'3',
'3',
'3',
'3',
'3',
'3',
'3',
'3',
'3'
),
"EnzymeLevel" = c(
96,
84,
85,
80,
84,
83,
94,
95,
95,
93,
95,
92,
101,
105,
108,
110,
105,
102,
84,
85,
84,
82,
83,
80,
99,
97,
98,
99,
97,
96,
106,
104,
114,
102,
100,
111,
85,
86,
86,
84,
81,
79,
98,
90,
97,
95,
93,
93,
98,
103,
109,
100,
106,
108
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.