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

attach(x72b)

e <- x72b[1:10,3]

c <-x72b[11:20,3]

e

c

 

#関数　t.test(条件１,条件２,等分散の仮説,対応の有無)

t.test(e,c,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