Using same formula for hours per month. It would be good to have these constants in one place - not sure how to do this in R