Affect in a Behavioral Asset Pricing Model