Problem with multi-objective optimization constraints: R

Question

I have the following code that defines two constraints I want to use in my multi-objective optimization problem, given that model1 model2 and mod