Update Get max peaks and barchart.R