Changed the plot(object,diagnostic=TRUE) for cpt.range objects

Changed the plot(object,diagnostic=TRUE) for cpt.range objects #22