cleaning up some code.  I feel like I have this in a repo already

modified:   Rwork/data.model.R