# NOT RUN {
gene <- data.frame(pair = seq(1:35),
ulcer = rbinom(35, 1, .7),
healthy = rbinom(35, 1, .4))
gene_tab <- xtabs(~ ulcer + healthy, data = gene)
gene_tab %>% matched_or()
# }
Run the code above in your browser using DataLab