R语言求助 missing value where TRUE/FALSE needed

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

下面的运行就有问题，请大神帮忙

> data1 <- c(1,2,3,1,2,1,2,0,0,0,0,0,0,0,1,2,1,0,0,0,0,0,1,2,1,0,0,0,1,4)
> data2 <- NA
> data_total <- data.frame(data1,data2)> len_data <- length(data1)
#目的是把连续5个是0的数进行更改
> for(i in 1:len_data){
+   if(i < 5){
+     data_total$data2 <- data_total$data1
+   }else{
+     if(sum(data_total$data1[(i-4):i])==0){
+       for(j in 1:4){
+         if(data_total$data2[(i+j-4)]>0){
+           data_total$data2[(i+j-4)] <- data_total$data2[(i+j-4)]
+         }else{
+           data_total$data2[(i+j-4)] <- sample(data_total$data1[which(data_total$data1>0)],1)
+         }
+       }
+      
+     }else{
+       data_total$data2 <- data_total$data1
+     }
+   }
+ }


Error in if (data_total$data2[(i + j - 4)] > 0) { :
  missing value where TRUE/FALSE needed
>

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：missing NEEDED value Where SSIN

您好，如果您的求助没有解决，请到项目交易发布需求，会有更快更专业的用户帮助您 https://bbs.pinggu.org/prj/