chisq.test(smokeTab, simulate.p.value = TRUE, B = 10000) %>%
pval()
chisq.test(smokeTab, simulate.p.value = TRUE, B = 100000) %>% pval()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.