I am trying to convert data.table code that uses melt and dcast into code that does the same but with d