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))
#PHatonesidedTestStatistics(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.00389 TRUE 0.0888 0.351
#PHatonesidedTestStatistics(effectsize=PHatES,effectsize.variance=PHatESvar,effectsize.df=0,
# alternative="less")
# A tibble: 1 x 5
# ES.test ES.pvalue ES.sig ES.ci.lower ES.ci.upper
#
#1 2.84 0.998 FALSE 0.0926 0.347
Run the code above in your browser using DataLab