彭博周期代码：缺少值，其中需要TRUE / FALSE

Question

我编写了一些代码，如果这些股票低于某个mktcap，我希望借此删除我的股票。我已经在下面编写了代码，但是在某些情况下似乎给出了错误。我假设这与我的if else公式的构造有关。我收到的错误是：

“缺少需要TRUE / FALSE的值”

非常感谢您的建议。先感谢您。

  for (i in 1:nrow(t)){
    qq <- bdh(t[i,], 
              fields = c("CUR_MKT_CAP"), 
              start.date = aa, end.date = a)
    qq$date <- as.Date(qq$date, format = "%d/%m/%Y")
    qq$CUR_MKT_CAP <- as.numeric(qq$CUR_MKT_CAP)
    qqlength <- (last(qq$CUR_MKT_CAP))/1000
    #  print(qqlength)


    if(qqlength >= mktcap){
      mktcapfilter[i] <-  t[i,]}else{
        mktcapfilter[i] <- 0
      }
  }