# NOT RUN {
flow_exclusions(c(1000, 300, 150, 75, 38))
dot <-
flow_exclusions_dot(
incl_counts = c(972, 132, 77, 14),
total_label = "Total Screened",
incl_labels = c("Consented", "Completed Study", "BMI <= 30"),
excl_labels = c("Declined Consent", "Failed to Complete", "BMI > 30")
)
DiagrammeR::grViz(dot)
flow_exclusions(c(1000, 300, 150, 75, 38),
percent_of_total = TRUE,
show_count = FALSE)
flow_exclusions(c(100000, 3000, 1666, 411, 38),
percent_of_prev = TRUE,
percent_args = list(decimal.mark = ","),
format_args = list(scientific = TRUE),
show_count = TRUE)
# }
Run the code above in your browser using DataLab