Added data.table example code outside benchmark()