{"cells":[{"cell_type":"code","execution_count":null,"metadata":{"collapsed":false},"outputs":[],"source":"library(data.table)"},{"cell_type":"code","execution_count":null,"metadata":{"collapsed":false},"outputs":[],"source":"train <- fread('../input/train.csv', \n               select = c('Semana', 'Agencia_ID', 'Cliente_ID', 'Producto_ID', 'Demanda_uni_equil'),\n               colClasses=c(Semana=\"numeric\", Agencia_ID=\"numeric\", Cliente_ID=\"numeric\",Producto_ID=\"numeric\",Demanda_uni_equil=\"numeric\"))"},{"cell_type":"code","execution_count":null,"metadata":{"collapsed":false},"outputs":[],"source":"train <- read.csv('../input/train.csv')"},{"cell_type":"code","execution_count":null,"metadata":{"collapsed":false},"outputs":[],"source":"setkey(train, Producto_ID, Agencia_ID, Cliente_ID)"},{"cell_type":"code","execution_count":null,"metadata":{"collapsed":false},"outputs":[],"source":"median <- train[, median(Demanda_uni_equil)]\nprint(median)"},{"cell_type":"code","execution_count":null,"metadata":{"collapsed":false},"outputs":[],"source":"mean_Prod <- train[, exp(mean(log(Demanda_uni_equil+1)))*0.75, by = Producto_ID]\nprint(mean_Prod)"},{"cell_type":"code","execution_count":null,"metadata":{"collapsed":false},"outputs":[],"source":""}],"metadata":{"kernelspec":{"display_name":"R","language":"R","name":"ir"}},"nbformat":4,"nbformat_minor":0}