當運行以下優化任務(R v.3.0.2)DEoptim堆棧不平衡問題
library(DEoptim)
x <- seq(-6,6,length=100); y <- tanh(x)
goal <- function(par) return(1-abs(cor(x*par,y,method='spearman')))
ctrl <- DEoptim::DEoptim.control(VTR=0, trace=FALSE)
res <- DEoptim::DEoptim(goal,lower=-1,upper=1, ctrl)
我得到堆棧不平衡警告
Warning: stack imbalance in '<-', 14 then 13
Warning: stack imbalance in 'withVisible', 7 then 6
和unprotect()
錯誤。如果VTR
設置爲0(即不可能獲得的值),那麼問題就會消失,但是由於性能問題,我寧願不這樣做。
即使出現錯誤,結果也會返回,但我擔心它可能不穩定/不正確。任何想法如何解決這個問題?
感謝修復和清除了這一點。 – dratewka