addding data files and updated r code