How can i solve this problem

Thank you Mark! I used rel_entr() to rewrite the R1u expression, and the errors are fixed! But I still can’t get the result as shown in Why is my program failed?. I will try to solve this problem according to your suggestion. Thanks again!