R，优化

Question

我正在尝试定义优化问题。 我得到了一个生成我感兴趣的矩阵的函数：

total_nutrition=function(x){averaging(cleaned_database(importation_year(x)))}

然后使用此矩阵的第二列，我想生成一个优化问题：

objective = function(nutri_values, x) {sum( abs(nutri_values[,2]-x))}
objective2 = function(nutri_values,x) {sum( (nutri_values[,2]-x)^2)}
constraint1= function(nutri_values,x) {sum( (nutri_values[,2]-x)^2)-1}

objective_4=function(nutri_values){
initial_value=95
min4=auglag(initial_value, objective, heq=constraint1(nutri_values,x))
return(min4)
}

但是当我用

尝试我的功能时

objective_4(total_nutrition(3)) 

我收到以下错误消息（total_nutrition完美运行）

Error in constraint1(nutri_values) : argument "x" is missing, with no default

任何想法？