这两天有个代码遇到了问题,我编写的时候,感觉没有问题的。看了下,找到了解决办法,但是还不明白为什么之前的代码有问题。
target_set2 <- 0
target_set2[RR != Inf] <- rowSums(Ind.R * f.exp.bz)[RR != Inf]
上述代码会将 target_set2中RR==Inf的值为NA, 按照预期将0赋值给一个向量,会按照长度分配。
修改后的代码为:
target_set2 <- rep(0, n)
target_set2[RR != Inf] <- rowSums(Ind.R * f.exp.bz)[RR != Inf]