在R中创建（递归）函数

Question

我有一个数据框：

objective=function(x) {
    for (i in 1: length(nutri_values[,2]))
    {
        objective(x)=objective(x)+ abs(nutri_values[i,2]-x)
    }
}

我的nutri_values看起来像这样：

1          95.58696
2     ABW  87.00000
4     ALB 117.39485
6     ARG  83.01671
9     AUS  94.52020
11    BEL  81.73263

我想得到的是一个函数sum（abs（nutri_values [i，2] -x）}，以便定义一个优化问题。

但是，我收到以下错误消息：

 Error: evaluation nested too deeply: infinite recursion / options(expressions=)?