R code for the creation of odontograms from surface level oral exams