PHat=c(0.92,0.6,0.48,0.72,0.88)
PHatvar=c(0.01,0.04,0.05,0.04,0.01)
PHatdf=c(6.63,6.63,5.08,5.61,8)
PHatInvalid=c(0.92,0.6,0.48,0.72)
as.data.frame(metaanalyse.PHat(PHat=PHat,PHatvar=PHatvar,DFUnknown=FALSE,df=PHatdf,
alternative="greater",alpha=0.05))
# Estimate UpperCI LowerCI Variance tvalue df AltHyp NullHyp pvalue RejectNullHyp..
# 1 0.72 0.8777899 0.5622101 0.006 2.840188 31.95 >0.5 <=0.5 0.003890609 Yes..
as.data.frame(metaanalyse.PHat(PHat=PHat,PHatvar=PHatvar,DFUnknown=TRUE,df=PHatdf,
alternative="greater",alpha=0.05))
# Estimate UpperCI LowerCI Variance tvalue df AltHyp NullHyp pvalue RejectNullHyp..
# 1 0.72 0.8718182 0.5681818 0.006 2.840188 NA >0.5 <=0.5 0.002254349 Yes..
as.data.frame(metaanalyse.PHat(PHat=PHat,PHatvar=PHatvar,DFUnknown=FALSE,df=PHatdf,
alternative="two.sided",alpha=0.05))
# Estimate UpperCI LowerCI Variance tvalue df AltHyp NullHyp pvalue RejectNullH..
#1 0.72 0.8777899 0.5622101 0.006 2.840188 31.95 Not=0.5 ~0.5 0.007781218 Yes..
as.data.frame(metaanalyse.PHat(PHat=PHat,PHatvar=PHatvar,DFUnknown=TRUE,df=PHatInvalid,
alpha=0.05))
# Estimate UpperCI LowerCI Variance tvalue df AltHyp NullHyp pvalue RejectNullHyp I..
#1 0.72 0.8718182 0.5681818 0.006 2.840188 NA Not=0.5 ~0.5 0.004508698 Yes 82..
Run the code above in your browser using DataLab