Acu.null <-
do(1000) *
MAD(prop(shuffle(improvement) ~ acupuncture, data = Acupuncture))
head(Acu.null, 3)
histogram(~ result, data = Acu.null, groups = (result >= 0.135))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.