Nothing
amd <- rbind(cases = c(27, 17, 6), controls = c(13, 46, 37))
dom <- rbind(cases = c(27 + 17, 6), controls = c(13 + 46, 37))
rec <- rbind(cases = c(27, 17 + 6), controls = c(13, 46 + 37))
chisq.test(amd)
chisq.test(dom)
chisq.test(rec)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.