1-pnorm(2.9149)
## [1] 0.001779
prop.test(c(34,19),c(40,35),alternative="greater",correct=FALSE)
## 
##  2-sample test for equality of proportions without continuity
##  correction
## 
## data:  c(34, 19) out of c(40, 35)
## X-squared = 8.495, df = 1, p-value = 0.00178
## alternative hypothesis: greater
## 95 percent confidence interval:
##  0.1404 1.0000
## sample estimates:
## prop 1 prop 2 
## 0.8500 0.5429