speed up data.table