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