Table4.20 <- data.frame(
'Batch' = c(
'1', '2', '3', '4', '5',
'1', '2', '3', '4', '5',
'1', '2', '3', '4', '5',
'1', '2', '3', '4', '5',
'1', '2', '3', '4', '5'
),
'Operator' = c(
'1', '1', '1', '1', '1',
'2', '2', '2', '2', '2',
'3', '3', '3', '3', '3',
'4', '4', '4', '4', '4',
'5', '5', '5', '5', '5'
),
'Formulation' = c(
'A', 'B', 'C', 'D', 'E',
'B', 'C', 'D', 'E', 'A',
'C', 'D', 'E', 'A', 'B',
'D', 'E', 'A', 'B', 'C',
'E', 'A', 'B', 'C', 'D'
),
'TestAssembly' = c(
'a', 'b', 'c', 'd', 'e',
'c', 'd', 'e', 'a', 'b',
'e', 'a', 'b', 'c', 'd',
'b', 'c', 'd', 'e', 'a',
'd', 'e', 'a', 'b', 'c'
),
'BurnRate' = c(
24, 17, 18, 26, 22,
20, 24, 38, 31, 30,
19, 30, 26, 26, 20,
24, 27, 27, 23, 29,
24, 36, 21, 22, 31
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.