inst/snippets/Figure8.5.R

Acu.null <- 
  do(1000) * 
    MAD(prop(shuffle(improvement) ~ acupuncture, data = Acupuncture))
head(Acu.null, 3)
histogram(~ result, data = Acu.null, groups = (result >= 0.135))
rpruim/ISIwithR documentation built on May 28, 2019, 1:30 a.m.