Assignment - 3
Question - 1
Perform regression analysis for the following data.
x<-file$groove
> x
[1] 394.33 329.50 291.00 255.17 229.33 204.83 179.00 163.83 150.33
> y<-file$mileage
> y
[1] 0 4 8 12 16 20 24 28 32
> reg1<-lm(y~x)
> res<-resid(reg1)
> res
1 2 3 4 5 6 7 8 9
3.6502499 -0.8322206 -1.8696280 -2.5576878 -1.9386386 -1.1442614 -0.5239038 1.4912269 3.7248633
> plot(x,res)
Question 2
Perform Regression for the following data and check the relation between the alpha and plutonium
x<-file$alpha
> y<-file$pluto
reg1<-lm(y~x)
> res<-resid(reg1)
plot(x,res)
The rating for the three types of chairs are almost similar as the p value is greater than .05
No comments:
Post a Comment