Added R code and dataframe to be loaded by R analysis script.