使用optim（）和系数矩阵问题

Question

我遇到了optim()函数的问题，但我没有设法解决这个问题： 我有一个3列和100行的矩阵Mcoefi。我试图找到以下优化问题的解决方案：

 wi<-function(r, Mcoefi){
          -r + ( Mcoefi[(3+round(r)),1] + Mcoefi[(3++round(r)),2]*2 + Mcoefi[(3+round(r)),3]*3)
        }

mi<-optim(1,wi, qn1=q,lower=-3,upper=3, method="L-BFGS-B")

R回答我optim()中的目标函数是99长。我在Mcoef中的每个系数都是标量。所以我不明白为什么它会向我发送此错误消息。