Initial R script

Script looks for a file on my local machine. Since it is not
anonymized, I am not posting it to github.