my_recode: Group together codes
In n8thangreen/HESmanip: Hospital length of stay data preprocessing and analysis

Description Usage Arguments Details Author(s) See Also Examples

According to a look-up table, patients are grouped together.

1	my_recode(codes, lookuplist)

`codes`
`lookuplist`

Uses a neat trick of relabelling factors which is much simpler and quicker than stepping through each patients records.

N Green

facFlags, ~~~

##---- 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, lookuplist) 
{
    nfac <- factor(codes)
    lfac <- levels(nfac)
    othrlevs <- lfac[!lfac %in% unlist(lookuplist)]
    levels(nfac) <- c(lookuplist, list(all_others = othrlevs))
    nfac
  }