请参阅Loop for solving a number of non-linear equations with nleqslv in R上的讨论。
使用mutate循环nleqslv时遇到同样的问题。所有观察中的单一值。以下是代码:
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
的副本。