SLIDE 7 ST 516 Experimental Statistics for Engineers II
R commands
injection <- read.table("data/injection.txt", header = TRUE) for (j in 1:(ncol(injection) - 1)) injection[ , j] <- coded(injection[ , j]) summary(lm(Shrinkage ~ A * B * C * D * E * F, injection))
Output
Call: lm(formula = Shrinkage ~ A * B * C * D * E * F, data = injection) Residuals: ALL 16 residuals are 0: no residual degrees of freedom! Coefficients: (48 not defined because of singularities) Estimate Std. Error t value Pr(>|t|) (Intercept) 27.3125 NA NA NA A 6.9375 NA NA NA B 17.8125 NA NA NA C
NA NA NA D 0.6875 NA NA NA
7 / 15 Two-level Fractional Factorial Designs The One-Quarter Fraction