Cost_object_1_ (R)