R script

Add r script to clean up the schedule C appointment data