data(sim_exam)
dmft <- calc_dmft(sim_exam)
dmft$treatment <- ifelse(
as.numeric(gsub("P", "", dmft$record_id)) <= 10, "SDF", "ART"
)
result <- summarise_dmft(dmft, "treatment")
result$stats
# Pass directly to build_odontogram:
# build_odontogram(d, strata = "treatment",
# stats = result$stats, stats_raw = result$raw,
# stats_test = "wilcox", stats_var = "DMFT")
Run the code above in your browser using DataLab