Let peak.R show max avg_flow