sort.day.strs: Sort days according to month codes.
In haberdashPI/wright.lab.util: A set of utilitiy functions used in our lab.

TODO

1	sort.day.strs(days, month.codes)

`days`
`month.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 (days, month.codes) 
{
    sortable.days = days
    for (row in 1:nrow(month.codes)) {
        sortable.days = sub(month.codes[row, 1], month.codes[row, 
            2], sortable.days)
    }
    days[order(sortable.days)]
  }