Chapter 9, Page 339
x <- 931 n <- 10000 p <- 1/10 mu <- (n*p) s2 <- n*p*(1-p) s <- sqrt(s2) S <- (x-mu)/s pnorm(S)
## [1] 0.01072411