Adding R script for running the data analysis.