working on R code to do aggregations and calculations of average price discount for each customer
fixed a bug,typo