added an r script for plotting graphs