The relevant R files have been added. I hesitate
to add the csv for privacy concerns