clean.ref: Clean reference table codes
In n8thangreen/HESmanip: Hospital length of stay data preprocessing and analysis

Clean reference table codes, removing extra characters and spaces.

1	clean.ref(refcodes)

refcodes

##---- 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 (refcodes) 
{
    refcodes <- as.character(refcodes)
    refcodes <- gsub("'", "", refcodes)
    refcodes <- gsub(" ", "", refcodes)
    refcodes <- gsub(" ", "", refcodes)
    refcodes <- gsub(" ", "", refcodes)
    refcodes <- gsub("+", "", refcodes, fixed = TRUE)
    refcodes <- gsub("*", "", refcodes, fixed = TRUE)
    refcodes <- gsub(".", "", refcodes, fixed = TRUE)
    refcodes <- gsub("-", "", refcodes, fixed = TRUE)
    refcodes
  }