Adding R script to generate graphs, still rough.