Added graphs R scripts