library(data.table)

print("Reading data")
train <- fread('../input/train.csv', 
               select = c('Semana','Cliente_ID', 'Producto_ID', 'Agencia_ID', 'Ruta_SAK', 'Demanda_uni_equil'))

test <- fread('../input/test.csv', 
              select = c('id','Semana', 'Cliente_ID', 'Producto_ID', 'Agencia_ID', 'Ruta_SAK'))

week_dataSet <- subset(train, train$Semana == 9)
print(week_dataSet)

plot(week_dataSet$Producto_ID,week_dataSet$Demanda_uni_equil, xlab = "Producto_ID", ylab = "Demand") 
#Find means of demand for each product
#mean_D <- train[, .(MD = mean(Demanda_uni_equil)), by = .(Producto_ID)]


#submit <- merge(test, mean_D, all.x = TRUE, by = "Producto_ID")


#print(submit)