added R file that loads data-- analysis to come