Can'；t将特定索引处的数字添加到R中的double

我想通过优化下面的res公式，为xp和yp列表中x1和x2的每个值创建10个b1。但是，我的值不知何故没有添加到b1.created中。当我运行代码后检查时，我得到b1.created=0。如何使代码工作

---

y我想这正是你想要的，但请交叉核对

created.b1 <- numeric(length = 10)
for (i in 1:10)
{
    opt_obj <- optimise(f = function(b0, y, xp, yp, x1, x2) sum((y - (b0 + (x1 * xp) + (x2 * yp))) ^ 2),
                        interval = c(-10, 10),
                        y = y,
                        xp = xp[i],
                        yp = yp[i],
                        x1 = x1,
                        x2 = x2)
    created.b1[i] <- opt_obj$minimum
}
created.b1

created.b1在定义了
created.b1
之后，您创建了一个函数
normal
，但甚至没有调用它。为什么您希望创建的
b1
会受到影响？@yarnabrina我在optimizer函数中调用了它。我对R很陌生，否则我怎么能让代码工作呢？你必须调用
normal
参数。我不知道要传递给它的值是什么，因此无法提供解决方案。但是我应该指出，您还没有在任何地方定义
y1
，因此您可能会因此而面临问题。而且，您也没有返回任何内容。什么是
b0
？还有一点我以前错过了，你是否有意在
normal
内部调用
normal
？只是为了确定，你想找到intercept
b0
的值，其中
res
是给定
y
，
xp
，
yp
，
x1
和
x2
的最小值，你想在10个回归系数的选择中重复10次吗
xp
和
yp
？