updated graphs and R script