Assignment 11

Assignment 11- RCBD 1.) yij= u + ai+Bj+Eij i=1,…4 j=1,…4 ai= affect of chemical Bj= affect of bolt a=.15 the hypothesis test Ho=a1=a2=a3=a4 Ha= one chemical differs

2.) library(GAD) y<-c(73,73,75,73, 68,67,68,71, 74,75,78,75, 71,72,73,75) bolt<-gl(4,4, labels = paste0(“B”,1:4)) chem<-factor(rep(paste0(“C”,1:4), times=4))

chem.f<-as.fixed(chem) bolt.r<-as.random(bolt) m1<-lm(y~chem.f+bolt.r) gad(m1)

summary(aov(y~chem+bolt)) tapply(y, chem, mean) tapply(y, bolt, mean)

3.)After analyzing the data, we can see enough difference between 1 and 2. There was some variance between the chemical and bolts. With the means being different, along with rejecting the null hypothesis due to p=.106<.15.Therefore, we can assume that chemical and bolt can affect the textile of cloth. ## R Markdown