helicopterexpt - Pr(>F) fpaper 1 49.867 49.867 41.8287...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
Helicopter Experiment > helicop.data <- read.table(file=" http://www.stat.ufl.edu/~rrandles/sta4211/Rclassnotes/data/helicopters.txt " ,header=TRUE) > attach(helicop.data) > helicop.data time paper wing 1 7.40 c l 2 8.13 c m 3 5.43 c s 4 11.00 p m 5 6.50 c s 6 14.31 p l 7 10.62 p m 8 6.47 c s 9 8.41 c m 10 12.22 p l 11 9.50 c l 12 8.37 c m 13 9.69 p s 14 10.25 p m 15 6.19 c l 16 8.81 p s 17 8.93 p s 18 10.53 p l > fpaper <- factor(paper) > fwing <- factor(wing) > model <- aov(time~ fpaper + fwing + fpaper:fwing, data=helicop.data) > summary(model) Df Sum Sq Mean Sq F value
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: Pr(>F) fpaper 1 49.867 49.867 41.8287 3.08e-05 *** fwing 2 18.685 9.342 7.8364 0.006649 ** fpaper:fwing 2 4.324 2.162 1.8134 0.205049 Residuals 12 14.306 1.192 > mpaper <- with(model,tapply(time,fpaper,mean)) > mpaper c p 7.377778 10.706667 > mwing <- with(model,tapply(time,fwing,mean)) > mwing l m s 10.025000 9.463333 7.638333 > tt <-qt(.99375,12) > tt [1] 2.934459 > cutpaper <- tt*sqrt(1.192*2/9) > cutpaper [1] 1.510288 > cutwing <- tt*sqrt(1.192*2/6) > cutwing [1] 1.849718...
View Full Document

This note was uploaded on 02/15/2012 for the course STA 4211 taught by Professor Randles during the Spring '08 term at University of Florida.

Ask a homework question - tutors are online