Added data and R scripts