R语言运行sce-ua算法报错

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

大家有没有遇到过这样的报错？

1. Error in if (fnew > fw) { : missing value where TRUE/FALSE needed

复制代码

贴出原代码
这是目标函数

1. OFUN = function(parameters2, topidx1, delayt3, rain2,etp, verbose = TRUE, yobs1){
   
2.   yvals = topmodel2(parameters2, topidx1, delayt3, rain2,etp, verbose = TRUE)
   
3.   sum((yvals$Q-yobs1)^2)
   
4. }

复制代码

1. sceuares1 = sceua(OFUN, pars = parameters2,   # 预设的参数优化值
   
2.                  lower = c(-10,0,0,0,0,10,1000,1000,-10,0,0),   # 参数的最低阈值
   
3.                  upper = c(10,10,10,1,1,100,10000,10000,10,10,10),   # 参数的最高阈值
   
4.                  topidx1 = topidx1,
   
5.                  delayt3 = delayt3,
   
6.                  rain2 = rain2,
   
7.                  etp = etp,
   
8.                  verbose = TRUE,
   
9.                  yobs = yobs[1:15])

复制代码

1. > sceuares1 = sceua(OFUN, pars = parameters2,   # 预设的参数优化值
   
2. +                  lower = c(-10,0,0,0,0,10,1000,1000,-10,0,0),   # 参数的最低阈值
   
3. +                  upper = c(10,10,10,1,1,100,10000,10000,10,10,10),   # 参数的最高阈值
   
4. +                  topidx1 = topidx1,
   
5. +                  delayt3 = delayt3,
   
6. +                  rain2 = rain2,
   
7. +                  etp = etp,
   
8. +                  verbose = TRUE, # 自变量
   
9. +                  yobs = yobs[1:15])
   
10. Error in if (fnew > fw) { : missing value where TRUE/FALSE needed

复制代码

然后就出现了以上的报错，求路过的同学解答

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 SCE parameters Parameter paramete