HW4_STA5166

HW4_STA5166 - a) This is a randomized Bloack experimental...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
a) This is a randomized Bloack experimental design b) Analyzing each of the paint suppliers, the mean is different for each of them as illustrated above. > fit1= aov(y~supplier + site, data=Prob4.1) Warning message: variable 'site' converted to a factor in: model.matrix.default(mt, mf, contrasts) > fit2= aov(y~supplier, data=Prob4.1) > summary(fit1) Df Sum Sq Mean Sq F value Pr(>F) supplier 3 665.13 221.71 20.387 1.503e-05 *** site 5 568.71 113.74 10.459 0.0001808 *** Residuals 15 163.13 10.88 --- Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
attributes(fit1) par(mfrow=c(1,1)) plot(fit1$fitted.values, fit1$residuals) 55 60 65 70 75 -2 0 2 4 6 fit1$fitted.values fit1$residuals Analyzing the residuals, assume no effect since no pattern and wide spread. Using S-Plus Using R ##load package mvtnorm ##load package multcomp ##load package multtest int= glht(fit2, linfct = mcp(supplier = "Tukey")) int print(confint(int)) plot(confint(int)) summary(int, test = adjusted( "bonferroni"))
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 12/14/2011 for the course STAT 5166 taught by Professor Staff during the Fall '11 term at FSU.

Page1 / 4

HW4_STA5166 - a) This is a randomized Bloack experimental...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online