data.table::getDTthreads()
verbose=TRUE
mean(RESULTS)
dcast(setDT(mydata)[, NUM := paste0("E", seq_len(.N)), by=.(A,B,ID)], A + B + ID ~ NUM, value.var="E")
value.var
setDT(mydata)