ast: [](){expression}<LSEP>[call](){}<LSEP>[](symbol){library}<LSEP>[](symbol){ggplot2}<LEND>[call](){}<LSEP>[](symbol){library}<LSEP>[](symbol){readr}<LEND>[call](){}<LSEP>[](symbol){system}<LSEP>[argument 0; litteral](str){ls ../input}<LEND>[call](){}<LSEP>[](symbol){library}<LSEP>[](symbol){data.table}<LEND>[call](){}<LSEP>[](symbol){print}<LSEP>[argument 0; litteral](str){Reading data}<LEND>[assign](){<-}<LSEP>[](symbol){train}<LEND>[call](){}<LSEP>[](symbol){fread}<LSEP>[argument 0; litteral](str){../input/train.csv}<LEND>[argument 1; call](){}<LSEP>[](symbol){c}<LSEP>[argument 0; litteral](str){Cliente_ID}<LSEP>[argument 1; litteral](str){Producto_ID}<LSEP>[argument 2; litteral](str){Agencia_ID}<LSEP>[argument 3; litteral](str){Ruta_SAK}<LSEP>[argument 4; litteral](str){Demanda_uni_equil}<LEND>[assign](){<-}<LSEP>[](symbol){test}<LEND>[call](){}<LSEP>[](symbol){fread}<LSEP>[argument 0; litteral](str){../input/test.csv}<LEND>[argument 1; call](){}<LSEP>[](symbol){c}<LSEP>[argument 0; litteral](str){id}<LSEP>[argument 1; litteral](str){Cliente_ID}<LSEP>[argument 2; litteral](str){Producto_ID}<LSEP>[argument 3; litteral](str){Agencia_ID}<LSEP>[argument 4; litteral](str){Ruta_SAK}