Problem7.9 <- data.frame(
"Block" = c(
'Block 1',
'Block 2',
'Block 3',
'Block 4',
'Block 4',
'Block 3',
'Block 2',
'Block 1',
'Block 4',
'Block 3',
'Block 2',
'Block 1',
'Block 1',
'Block 2',
'Block 3',
'Block 4',
'Block 2',
'Block 1',
'Block 4',
'Block 3',
'Block 3',
'Block 4',
'Block 1',
'Block 2',
'Block 3',
'Block 4',
'Block 1',
'Block 2',
'Block 2',
'Block 1',
'Block 4',
'Block 3'
),
"Aperture" = c(
'small',
'large',
'small',
'large',
'small',
'large',
'small',
'large',
'small',
'large',
'small',
'large',
'small',
'large',
'small',
'large',
'small',
'large',
'small',
'large',
'small',
'large',
'small',
'large',
'small',
'large',
'small',
'large',
'small',
'large',
'small',
'large'
),
"ExposureTime" = c(
-20,
-20,
20,
20,
-20,
-20,
20,
20,
-20,
-20,
20,
20,
-20,
-20,
20,
20,
-20,
-20,
20,
20,
-20,
-20,
20,
20,
-20,
-20,
20,
20,
-20,
-20,
20,
20
),
"DevelopTime" = c(
30,
30,
30,
30,
45,
45,
45,
45,
30,
30,
30,
30,
45,
45,
45,
45,
30,
30,
30,
30,
45,
45,
45,
45,
30,
30,
30,
30,
45,
45,
45,
45
),
"MaskDimension" = c(
'Small',
'Small',
'Small',
'Small',
'Small',
'Small',
'Small',
'Small',
'Large',
'Large',
'Large',
'Large',
'Large',
'Large',
'Large',
'Large',
'Small',
'Small',
'Small',
'Small',
'Small',
'Small',
'Small',
'Small',
'Large',
'Large',
'Large',
'Large',
'Large',
'Large',
'Large',
'Large'
),
"EtchTime" = c(
14.5,
14.5,
14.5,
14.5,
14.5,
14.5,
14.5,
14.5,
14.5,
14.5,
14.5,
14.5,
14.5,
14.5,
14.5,
14.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5
),
"Yield" = c(
7,
9,
34,
55,
16,
20,
40,
60,
8,
10,
32,
50,
18,
21,
44,
61,
8,
12,
35,
52,
15,
22,
45,
65,
6,
10,
30,
53,
15,
20,
41,
63
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.