Note:
​The transpose function is needed for the generated data.table scripts to work. Please make sure to copy the following transpose function before adding the generated scripts:

transpose=function(data)
{
  setcolorder(dcast(melt(data, id.vars="row0"), variable~row0)[, variable:=NULL], data[, row0])
}

The transpose function above generates an output dataset in which every variable is in character format. If you would like the numeric variables in the output dataset to be in numeric format, please use the following transpose function (older versions):

transpose=function(data)
{
  data=setcolorder(dcast(melt(data, id.vars="row0"), variable~row0)[, variable:=NULL], data[, row0])
  list=names(data)[sapply(names(data), function(x, data){suppressWarnings(all(!is.na(as.numeric(data[, get(x)]))|(is.na(data[, get(x)]))))}, data)==TRUE]
  if(!identical(list, character(0))){data[, (list):=lapply(.SD, as.numeric), .SDcols=list]}
  return(data)
}