PHatES=mean(c(0.92,0.6,0.48,0.72,0.88))-0.5
PHatESvar=sum(c(0.01,0.04,0.05,0.04,0.01))/25
PHatdf=sum(c(6.63,6.63,5.08,5.61,8))
#PHattwosidedTestStatistics(effectsize=PHatES,effectsize.variance=PHatESvar)
# A tibble: 1 x 5
# ES.test ES.pvalue ES.sig ES.ci.lower ES.ci.upper
#
# 1 2.84 0.00451 TRUE 0.0682 0.372
# PHattwosidedTestStatistics(effectsize=PHatES,effectsize.variance=PHatESvar,effectsize.df=PHatdf)
# A tibble: 1 x 5
# ES.test ES.pvalue ES.sig ES.ci.lower ES.ci.upper
#
# 1 2.84 0.00778 TRUE 0.0622 0.378
Run the code above in your browser using DataLab