Drill_Speed<-c(rep(1,8),rep(2,8))
Feedrate<-rep(seq(1,4),4)
obs<-c(2.70,2.45,2.60,2.75,2.78,2.49,2.72,2.86,2.83,2.85,2.86,2.94,2.86,2.80,2.87,2.88)
Drill_Speed<-as.factor(Drill_Speed)
Feedrate<-as.factor(Feedrate)
dat<-data.frame(Feedrate,Drill_Speed,obs)
model<-aov(obs~Feedrate+Drill_Speed+Drill_Speed*Feedrate,data=dat)
summary(model)
## Df Sum Sq Mean Sq F value Pr(>F)
## Feedrate 3 0.09250 0.03083 11.859 0.00258 **
## Drill_Speed 1 0.14822 0.14822 57.010 6.61e-05 ***
## Feedrate:Drill_Speed 3 0.04187 0.01396 5.369 0.02557 *
## Residuals 8 0.02080 0.00260
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
We got interaction term as significant ie it means we have sufficient evidence to reject null hypothesis. The Feedrate and Drill_Speed are affecting the model as both are significant terms in our model. Thrust force can vary by changing Drill_Speed and Feed rate.