Affect in a Behavioral Asset-Pricing Model