# NOT RUN {
trial <- data.frame(disease = c(rep("yes", 2), rep("no", 2)),
treatment = c(rep(c("estrogen", "placebo"), 2)),
count = c(751, 623, 7755, 7479))
tavolo(trial, treatment, disease, count)
# }
Run the code above in your browser using DataLab