library(tibble)
d <- expand.grid(
tooth_num = paste0(rep(c("ur", "ul", "lr", "ll"), each = 7), 1:7),
tooth_surface = c("buc", "lin", "mes", "dis", "occ"),
stringsAsFactors = FALSE
)
d$prop <- runif(nrow(d))
# Old name still works but warns; wrap to keep example output clean:
suppressWarnings(build_odontograph(d, teeth_per_quadrant = 7))
# Preferred:
build_odontogram(d, teeth_per_quadrant = 7)
Run the code above in your browser using DataLab