Difference between revisions of "Worksheets/Week3"

From Statistics for Engineering
Jump to navigation Jump to search
Line 46: Line 46:


# A = additive at 20mL and 30mL for low and high levels
# A = additive at 20mL and 30mL for low and high levels
A <- c(-1, +1, -1, +1, 0, 0)
A = c(-1, +1, -1, +1, 0, 0)


# B = without (-) or with (+) baffles
# B = without (-) or with (+) baffles
B <- c(-1, -1, +1, +1, -1, +1)
B = c(-1, -1, +1, +1, -1, +1)


# Response y is the amount of side product formed, y [grams]
# Response y is the amount of side product formed, y [grams]
y <- c(89, 268, 179, 448, 186, 300)
y = c(89, 268, 179, 448, 186, 300)
model.siderxn.cp <- lm(y ~ A + B + A*B)
model_siderxn_cp <- lm(y ~ A + B + A*B)
summary(model.siderxn.cp)
summary(model_siderxn_cp)


# Uncomment this line if you run the code in RStudio
# Uncomment this line if you run the code in RStudio
Line 61: Line 61:
# Comment this line if you run this code in RStudio
# Comment this line if you run this code in RStudio
source('https://yint.org/contourPlot.R')
source('https://yint.org/contourPlot.R')
contourPlot(model.siderxn.cp)
contourPlot(model_siderxn_cp)
     </code>
     </code>
</div></html>
</div></html>

Revision as of 13:35, 26 September 2019

Part 1

A factorial experiment was run to investigate the settings that minimize the production of an unwanted side product. The two factors being investigated are called A and B for simplicity.

Part 2

Continuing from above, with 2 extra experimental points: