x72b <- read.csv("Table722b.csv")
x72b

attach(x72b)

​

#関数　t.test(従属変数~独立変数,等分散の仮説,対応の有無)

t.test(score~cond,data=x72b,var.equal=T,paired=TRUE)

​

tapply(score,cond,mean)

tapply(score,cond,sd)

​

#参考）効果量を求めるため  分散、n を求める

tapply(score,cond,var)

tapply(score,cond,length)

​

d2b <- abs(22.0-16.9)/sqrt(((10-1)*7.78+(10-1)*11.66)/(10-1+10-1))
d2b