Is there a bug in the line computing Motive[mHappyWeek]? It seems like it should have Motive[mHappyDay] instead of Motive[mHappyNow] on the right hand side.