Added Readme + R script