- In A Small Scale Experimental Study Of The Relation Between Degree Of Brandliking Y And Moisture Content X1 And Sweetn 1 (359.5 KiB) Viewed 76 times
data.frame(x1=c(4.0,4.0,4.0,4.0,6.0,6.0,6.0,6.0,8.0,8.0,8.0,8.0,10.0,10.0,10.0,10.0),
x2=
c(2.0,4.0,2.0,4.0,2.0,4.0,2.0,4.0,2.0,4.0,2.0,4.0,2.0,4.0,2.0,4.0),
y=c(64.0,73.0,61.0,76.0,72.0,80.0,71.0,83.0,83.0,
89.0,86.0,93.0,88.0,95.0,94.0,100.0))
brand_pref
## x1 x2 y
## 1 4 2 64
## 2 4 4 73
## 3 4 2 61
## 4 4 4 76
## 5 6 2 72
## 6 6 4 80
## 7 6 2 71
## 8 6 4 83
## 9 8 2 83
## 10 8 4 89
## 11 8 2 86
## 12 8 4 93
## 13 10 2 88
## 14 10 4 95
## 15 10 2 94
## 16 10 4 100
In a small-scale experimental study of the relation between degree of brandliking (Y) and moisture content X1 and sweetness (X2) of the product, the following results were obtained from the experiment based on a completely randomized design. Find the two variance inflation factors. Why are they both equal to 1? (do the vif calculations by hand) brand_pref <- data.frame(x1=c(4.0, 4.0, 4.0,4.0,6.0,6.0,6.0,6.0,8.0,8.0,8.0,8.0,10.0,10 .0,10.0,10.0), X2= c(2.0,4.0,2.0,4.0,2.0,4.0,2.0,4.0,2.0,4.0,2.0,4.0,2.0,4.0,2.0,4.0), y=c(64.0,73.0,61.0,76.0,72.0,80.0,71.0,83.0,83.0, 89.0,86.0,93.0,88.0,95.0,94.0,100.0)) brand pref เม่ 5 ## xl x2 у ## 1 4 2 64 ## 2 4 4 73 ## 3 4 2 61 ## 4 4 4 76 ## 5 6 2 72 ## 6 6 4 80 ## 7 6 2 71 ## 8 6 4 83 ## 9 8 2 83 ## 10 8 4 89 ## 11 8 2 86 ## 12 8 4 93 ## 13 10 2 88 ## 14 10 4 95 ## 15 10 2 94 ## 16 10 4 100 N N N N N N N =