inst/snippets/Figure5.11.R

sd <- sd(~ diffprop, data = Smoke.null)
2 * xpnorm(0.097, 0, sd, lower.tail=FALSE) # 2 times because two-sided
rpruim/ISIwithR documentation built on May 28, 2019, 1:30 a.m.