Implemented point 2 in statplot.R