catcodes: Concatenate codes
In n8thangreen/HESmanip: Hospital length of stay data preprocessing and analysis

Rearrange the reference look-up table so that codes in a single column.

1	catcodes(codes)

codes

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (codes) 
{
    codes$Code <- clean.ref(codes$Code)
    x <- aggregate(codes, by = list(codes$Group), paste, collapse = ",")[, 
        1:2]
    write.table(x, file = ".\Reference_tables\matchcodesGrouped.txt", 
        sep = "\t")
  }