HW4 - > data4=read.table("data4.1.txt") >...

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

View Full Document Right Arrow Icon
Sheet1 Page 1 > data4=read.table("data4.1.txt") > data4=data.frame(data4) > data4 # # Vector the x ==> V1, define y, and build the linear model # >x = factor ( data4$V1) >y = data4$V2 >g = lm(y~x) > # # call the ANOVA table # >summary(aov(g)) Df Sum Sq Mean Sq F value Pr(>F) x 5 42.940 8.5879 10.388 3.152e-08 *** Residuals 114 94.248 0.8267 # #Residual vs.factor levels # plot(data4$V1,g$res,xaxt="n",xlab="Cuckoo",ylab="Residual",main="Plot of residual vs factor levels",col="green",pch=16) # #Label # > mtext(paste("MDWP"),side=1,at=1) > mtext(paste("TRP"),side=1,at=2) > mtext(paste("HGSPRW"),side=1,at=3) > mtext(paste("RBN"),side=1,at=4) > mtext(paste("PWGTL"),side=1,at=5) > mtext(paste("WREN"),side=1,at=6) # #Boxplot #Color > plot(x,g$res,,xaxt="n",xlab="Cuckoo",ylab="Residual", + main="Plot of residual vs factor levels", + col=c("red","green","blue","69","deeppink","yellow"),pch=16) > mtext(paste("MDWP"),side=1,at=1) > mtext(paste("TRP"),side=1,at=2) > mtext(paste("HGSPRW"),side=1,at=3) > mtext(paste("RBN"),side=1,at=4)
Background image of page 1

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

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 06/06/2011 for the course STAT 4220 taught by Professor Smith during the Spring '08 term at University of Georgia Athens.

Page1 / 3

HW4 - > data4=read.table("data4.1.txt") >...

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

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