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.