inst/snippets/Figure10.11.R

GPA.null <- do(1000) * coef(lm(shuffle(gpa) ~ hours, data = GPA))
head(GPA.null, 3)
dotPlot(~ hours, data = GPA.null, n = 50, groups = (hours <= -0.00588))
rpruim/ISIwithR documentation built on May 28, 2019, 1:30 a.m.