Add DataProcessing.R for lab 4