R programming Ass 3 Q1  data.table rocks