Create Dental.R