Problem8.10c <- data.frame(
"FurnaceTemp" = c(
-1,
1,
-1,
1,
-1,
-1,
-1,
1,
1,
-1,
-1,
1,
1,
1,
-1,
1
),
"HeatingTime" = c(
-1,
-1,
-1,
1,
-1,
1,
1,
-1,
-1,
-1,
1,
1,
1,
-1,
1,
1
),
"TransferTime" = c(
-1,
-1,
1,
1,
1,
-1,
1,
1,
1,
-1,
1,
-1,
-1,
-1,
-1,
1
),
"HoldTime" = c(
-1,
1,
1,
1,
1,
1,
-1,
-1,
-1,
-1,
-1,
-1,
-1,
1,
1,
1
),
"QuenchTemp" = c(
1,
-1,
1,
1,
-1,
-1,
1,
-1,
1,
-1,
-1,
1,
-1,
1,
1,
-1
),
"Range" = c(
0.38,
0.3,
0.12,
0.31,
0.46,
0.06,
0.07,
0.4,
0.13,
0.029999999999999,
0.12,
0.19,
0.19,
0.44,
0.06,
0.25
),
"Stdev" = c(
0.19313207915825,
0.16522711641866,
0.069282032302572,
0.15947831618543,
0.23860706890901,
0.034641016151337,
0.040414518843417,
0.22278539748669,
0.065064070986465,
0.017320508075156,
0.061101009266162,
0.096090235369373,
0.10214368964032,
0.25403411844346,
0.034641016151337,
0.12503332889005
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.