用prop.text()得到的confidence interval好像和算出来的差别不小, 我是不是漏了哪里
`aaa <- prop.test(x=38,n=56,p=1/2,correct=FALSE)
aaa$conf.int
#> [1] 0.5482264 0.7859901
#> attr(,"conf.level")
#> [1] 0.95
ll <- 38/56+qnorm(0.025)sqrt(38/5618/56/56)
ll
#> [1] 0.5562524
ul <- 38/56+qnorm(0.975)sqrt(38/5618/56/56)
ul
#> [1] 0.8008905
`