changed read me file & added R script