# NOT RUN {
require(dplyr, quietly = TRUE)
data(Brenner)
Brenner %>%
select(infected, ulcer) %>%
cross_tbl(by = "infected")
contingency(infected ~ ulcer, data = Brenner, method = "cross.sectional")
# }
Run the code above in your browser using DataLab