mdo = mixDesign(3,2, center = FALSE, axial = FALSE, randomize = FALSE,
replicates = c(1,1,2,3))
mdo$names(c("polyethylene", "polystyrene", "polypropylene"))
mdo$units("percent")
elongation = c(11.0, 12.4, 15.0, 14.8, 16.1, 17.7, 16.4, 16.6, 8.8, 10.0, 10.0,
9.7, 11.8, 16.8, 16.0)
mdo$.response(elongation)
contourPlot3(A, B, C, elongation, data = mdo, form = "linear")
contourPlot3(A, B, C, elongation, data = mdo, form = "quadratic", col = 2)
contourPlot3(A, B, C, elongation, data = mdo,
form = "elongation ~ I(A^2) - B:A + I(C^2)",
col = 3, axes = FALSE)
contourPlot3(A, B, C, elongation, data = mdo,
form = "quadratic",
col = c("yellow", "white", "red"),
axes = FALSE)
Run the code above in your browser using DataLab