Database Reference
In-Depth Information
Mean : 81.936
3rd Qu.:104.959
Max. :180.507
bla
# display a summary of offertest where offer="offer2"
summary(offertest[offertest$offer=="offer2",])
offer purchase_amt
nopromo: 0 Min. : 14.04
offer1 : 0 1st Qu.: 69.46
offer2 :161 Median : 90.20
Mean : 89.09
3rd Qu.:107.48
Max. :154.33
bla
# display a summary of offertest where offer="nopromo"
summary(offertest[offertest$offer=="nopromo",])
offer purchase_amt
nopromo:169 Min. :-27.00
offer1 : 0 1st Qu.: 20.22
offer2 : 0 Median : 42.44
Mean : 40.97
3rd Qu.: 58.96
Max. :164.04
The
aov()
function performs the ANOVA on purchase size and offer options.
bla
# fit ANOVA test
model <- aov(purchase_amt ˜ offers, data=offertest)
The
summary()
function shows a summary of the model. The degrees of freedom
for offers is 2, which corresponds to the in the denominator of
Equation 3.4
.
The degrees of freedom for residuals is 497, which corresponds to the
in the
denominator of
Equation 3.5
.
summary(model)
Df Sum Sq Mean Sq F value Pr(>F)
offers 2 225222 112611 130.6 <2e-16 ***
Residuals 497 428470 862
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' '
1
