r - 求解 R 中的非线性方程组

Question

我想求解一个非线性方程组，但我陷入了 R 代码中。

install.packages("nleqslv")
library(nleqslv)
se_function<-function(A,b,c){
  n<-nrow(Se_data)
  k1<-Se_data$HTA.
  k2<-Se_data$RMA.
  k3<-Se_data$CMA.
  F<-Se_data$rc_mean
  Area<-Se_data$MTA
  F[n]<-A+b[1]*exp(k1[n]*Area[n]/c[1])+b[2]*exp(k2[n]*Area[n]/c[2])+b[3]*exp(k3[n]*Area[n]/c[3])
  F
}
startX<-rnorm(50)
se_result<-dfsane(startX,se_function,control = list(maxit=500,trace=FALSE))

我要解的方程：

在这个等式中，我已经知道 x,y 和 k[1,2,3]，我想知道 A,b[1,2,3] 和 c[1,2,3] 的值。x,y,k有25支队伍，但我收到了以下信息

Error in fn(par, ...) : argument "b" is missing, with no default
Error in dfsane(startX, se_function, control = list(maxit = 500, trace = FALSE)) : 
  Failure in initial functional evaluation.

请帮帮我，你能解释一下如何使用 function() 吗？非常感谢。

标签： r