网上找了个BB::dfsane函数的例子,但是在我R4.0版本上运行瞬间出结果,说不收敛,但是大家看一下迭代次数..
那么大的迭代次数,即使真的不收敛,也得有个运行时间啊,但结果就像闪退,,不知道什么原因!
library(BB)
fun <- function(x) {
f <- numeric(length(x))
f[1] <- x[1]/(1+exp(x[2]*0.215+x[3]))-134.03
f[2] <- x[1]/(1+exp(x[2]*5.06+x[3]))-80.2
f[3] <- x[1]/(1+exp(x[2]*9.85+x[3]))-13.4
f
}
startx <- c(132,0.5,0.5)
result = dfsane(startx,fun,control=list(maxit=55000000000,trace = FALSE))