Create Get max peaks and barchart.R