R Looping nleqslv с помощью mutate

Question

Пожалуйста, обратитесь к обсуждению на Цикл для решения ряда нелинейных уравнений с nleqslv в R .

Я сталкиваюсь с той же проблемой, когда зацикливаю nleqslv с использованием mutate.единое значение во всех наблюдениях.Ниже приведен код:

circle_circle_list1 <- mutate(
  circle_circle_list, 
  X3=(nleqslv(zstart, f2, jac=NULL, X1, Y1, X2, Y2, R1, R2, r))$x[1], 
  Y3=(nleqslv(zstart, f2, jac=NULL, X1, Y1, X2, Y2, R1, R2, r))$x[2]) 

circle_circle_list1 имеет около 30 строк.Он запускает nleqslv(), однако только первая строка получает правильные значения для X3 и Y3, остальные все строки получают копию X3 и Y3.

первых строк.