added R script to generate graphs