r - R の別のループ内でループする

Question

loop in loop 関数の結果に問題があります。ループ内を 1 回だけカウントし、最初の raw に最適なソリューションを選択してから停止します。

行列の各行の最適解を覚えておきたいzmienneです。私は何を間違っていますか？

schaffer <- function(xx)
{x1 <- xx[1]
 x2 <- xx[2]

 fact1 <- (sin(x1^2-x2^2))^2 - 0.5
 fact2 <- (1 + 0.001*(x1^2+x2^2))^2

 y <- 0.5 + fact1/fact2
 return(y)
}

gradient_descent <- function(func, step, niter) { 

  N <- 3 #N- number of random points
  zmienne <- matrix(runif(N*2, min = -100, max = 100), N, 2)
  print(zmienne)
  h = 0.001;
  iter_count = 0;

  for (i in 1:N) {
  x_0 <- zmienne[i,]
  x_n = x_0;

    for (j in 1:niter) {
      func_grad = (func(x_n+h) - func(x_n))/h;
      if (abs(func_grad) < 0.0001) { break; }
      x_n = x_n - step * func_grad;
      print(x_n)
      iter_count = iter_count + 1
    }
  }
return(list(iterations = niter, best_value = func_grad, best_state = x_n, x0=x_0))
    }

solution_m1 <- gradient_descent(schaffer, 0.1, 20)
solution_m1

Answer 1

リターンはループ内ではなく、関数の最後にある必要があります。