library(readr)
library(plyr)
library(dplyr)


one_training_data<-read.csv('../input/train.csv', header=T, nrows=1000000)


selected<-select(one_training_data,Cliente_ID,Demanda_uni_equil)
#selected



group_by(selected,Cliente_ID)
selected
#new<-summarise(selected,avg = mean(Demanda_uni_equil))
#arrange(avg = mean(Demanda_uni_equil))