Problem8.36 <- data.frame(
"Sih2cl2" = c(
8,
12,
8,
12,
8,
12,
8,
12,
8,
12,
8,
12,
8,
12,
8,
12,
10,
10
),
"Geh4" = c(
7.2,
7.2,
10.8,
10.8,
7.2,
7.2,
10.8,
10.8,
7.2,
7.2,
10.8,
10.8,
7.2,
7.2,
10.8,
10.8,
9,
9
),
"Hcl" = c(
3.2,
3.2,
3.2,
3.2,
4.8,
4.8,
4.8,
4.8,
3.2,
3.2,
3.2,
3.2,
4.8,
4.8,
4.8,
4.8,
4,
4
),
"B2h6" = c(
4.4,
4.4,
4.4,
4.4,
4.4,
4.4,
4.4,
4.4,
6.6,
6.6,
6.6,
6.6,
6.6,
6.6,
6.6,
6.6,
5.5,
5.5
),
"Temperature" = c(
760,
740,
740,
760,
740,
760,
760,
740,
740,
760,
760,
740,
760,
740,
740,
760,
750,
750
),
"SiCapThickness" = c(
371.18,
186.07,
151.36,
378.41,
91.69,
277.39,
215.91,
128.99,
152.36,
388.69,
324.49,
192.65,
234.48,
131.25,
97.91,
298.4,
215.7,
212.21
),
"SigeThickness" = c(
475.05,
320.95,
440.37,
630.9,
258.6,
422.35,
518.5,
346.22,
325.21,
487.16,
623.6,
437.53,
392.27,
241.51,
356.67,
526.69,
416.44,
419.24
),
"GeConcentration" = c(
8.53,
7.87,
12.13,
9.17,
9.78,
6.4,
11.42,
10.95,
9.74,
7.14,
10.68,
10.35,
9.14,
8.54,
12.96,
9.73,
9.78,
9.8
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.