search for: is_pl

...A) { load(filename) # imports move a potentially large data.table (memory size 10 MiB-50 GiB) move[, c(timevar, 'year') := list(floor_date(week_end, unit=timevar), year(week_end))] move <- merge(move, upc, by=c('upc')) # adds is_PL column, a boolean move <- merge(move, parent, by=c('store', 'year') # adds parent column, an integer setkeyv(move, by) # this reduces move to a data.table with at most 6000 rows, but always 4 columns move <- move[, list(revenue=sum(price*units), revenue_...