Updated Q4 with data.table