inst/snippets/Exploration5.3.6.R

Blood.null <- 
  do(5000) * diffprop(shuffle(response) ~ year, level = "donated", data = Blood)
head(Blood.null, 3)
dotPlot(~ diffprop, data = Blood.null, 
        groups = (diffprop <= -0.018 | diffprop >= 0.018), width = 0.0001, cex = 2)
rpruim/ISIwithR documentation built on May 28, 2019, 1:30 a.m.