r - 循环坐标搜索算法

Question

我在编写循环坐标搜索算法时遇到了麻烦。

ccsfinal <- function(x, alpha, e, Errortolarence, f) {
  k <- 0
  alpha[1] <- 2
  repeat {
    for (j in 1:10) {
      alpha[j] <- which.min(f(x[k] + (alpha[j]*e[j])))
      x[k + 1] <- x[k] + alpha[j]*e[k]
    }
    k <- k + 1
    if (abs(x[k] - x[k - 1]) < Errortolerance) {
      return(x[k])
    }
  }
}

我尝试使用变量来使用该算法：

ccsfinal(c(5, 5), 2, c(2, 2), 1e-5, realf)

realf <- function(x) {
  (5*x[1] - x[2])^4 + (x[1] - 2)^2 + x[1] - 2*x[2] + 12
}

我的错误在哪里有人可以帮助我？

标签： rarraysalgorithm