Problem12.1 <- data.frame(
"FurnaceTemp" = c(
-1,
1,
-1,
1,
-1,
1,
-1,
1
),
"HeatingTime" = c(
-1,
-1,
1,
1,
-1,
-1,
1,
1
),
"TransferTime" = c(
-1,
-1,
-1,
-1,
1,
1,
1,
1
),
"HoldTime" = c(
-1,
1,
1,
-1,
1,
-1,
-1,
1
),
"FreeHeightMean" = c(
7.54,
7.9,
7.52,
7.64,
7.6,
7.79,
7.36,
7.66
),
"FreeHeightVariance" = c(
0.09,
0.071,
0.001,
0.008,
0.074,
0.053,
0.03,
0.017
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.