我写了一些代码,如果它们低于某个mktcap,我希望删除我的宇宙中的股票 . 我已经编写了下面的代码但似乎在某些情况下会出错 . 我假设它与我的if else公式的构造有关 . 我得到的错误是:
“需要TRUE / FALSE的缺失 Value ”
我非常感谢你的建议 . 先感谢您 .
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
}
}