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

In ICD10 codes remove unwanted trailing characters.

1	clean.data(data, cols)

`data`
`cols`

##---- 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 (data, cols) 
{
    for (i in cols) {
        data[, i] <- gsub("-$", "0", data[, i])
        data[, i] <- gsub("X$", "0", data[, i])
        data[, i] <- gsub("X.$", "0", data[, i])
        data[, i] <- substring(data[, i], 1, 4)
    }
    data
  }