reproducer:::calcPHatConfidenceIntervals(.65,0.005,8)
# A tibble: 1 x 5
# phat.test pvalue phat.sig phat.ci.lower phat.ci.upper
#
# 1 2.12 0.0667 FALSE 0.487 0.813
reproducer:::calcPHatConfidenceIntervals(.65,0.005,8,alternative='greater')
# A tibble: 1 x 5
# phat.test pvalue phat.sig phat.ci.lower phat.ci.upper
#
# 1 2.12 0.0333 TRUE 0.519 1
Run the code above in your browser using DataLab