pnorm(900,867,10.74325,lower.tail=FALSE) pbinom(899,1000,0.867,lower.tail=FALSE) pnorm(900,916,8.77177,lower.tail=FALSE) pbinom(899,1000,0.916,lower.tail=FALSE)