How to use .SD in the data.table package