new data sets and fixed analysis R script