Slide 23
Slide 23 text
ී௨ʹtݕఆʢ༗ҙࠩͳ͠ʣ
#ͱΓ͋͑ͣ܈ผͰฏۉΛݟͯΈΔɻ
> by(dat[,"happy"], dat[,"promote"], mean)
dat[, "promote"]: ঢਐͳ͠
[1] 2.853333
------------
dat[, "promote"]: ঢਐ͋Γ
[1] 4.48
#tݕఆ
> t.test(promote0$happy, promote1$happy)
Welch Two Sample t-test
data: promote0$happy and promote1$happy
t = -2.2515, df = 6.6525, p-value = 0.06101
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
-3.35328611 0.09995278
sample estimates:
mean of x mean of y
2.853333 4.480000
23