Added fourth R file to produce set of graphs