not paying attention, forgot to checkout current work
refactoring stuff.

extract data model work to data.model.R

trying to use plyr

I am lame