# 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))
riskdiff(trial, treatment, disease, count, rev = "columns")
# }
Run the code above in your browser using DataLab