BBsolve解决方案

Question

早上好

使用BBsolve解决非线性系统后，我想知道是否有一种方法可以逐个提取解，由于某种原因我无法做到这一点，所以我尝试这样做：

> library(BB)
> v<-BBsolve(par =c(19.9,0.15,0), fn = g)
Successful convergence.
> s<-v[1]
> s
$par
[1]  1.425961e+01 -9.259611e+00  5.223318e-21

> s[1]
$par
[1]  1.425961e+01 -9.259611e+00  5.223318e-21 

如您所见，它不起作用！!!!

提前谢谢