[问答] 求问哪里不对 [推广有奖]

0关注
0粉丝

高中生

20%

还不是VIP/贵宾

-

0%

威望: 0 级
论坛币: 13 个
通用积分: 3.0000
学术水平: 0 点
热心指数: 0 点
信用等级: 0 点
经验: 458 点
帖子: 12
精华: 0
在线时间: 23 小时
注册时间: 2018-4-15
最后登录: 2020-5-3

楼主

cxnv 发表于 2018-8-6 13:09:47 |AI写论文

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

Asumd<-c("Asum05d","Asum06d","Asum07d","Asum08d","Asum09d","Asum10d","Asum11d")
atensummer<-list(atenautumn05,atenautumn06,atenautumn07,atenautumn08,atenautumn09,atenautumn10,atenautumn11)
year<-c(1156,1504,1844,2184,2529,2861,3200)
for(s in 1:length(Asumd)){
  Asumd[s]<-0
  atensummerp<-atensummer[s]
  for(h in 1:length(atensummerp$V1[atensummerp$V6 != 0.0])){
if(h == 1){
   if (atensummerp$V1[atensummerp$V6 != 0.0][h] >= year[s]+46){Asumd[s] <- Asumd[s] + 1}
} else{
   if (atensummerp$V1[atensummerp$V6 != 0.0][h] - atensummerp$V1[atensummerp$V6 != 0.0][h-1] >= 47){Asumd[s] <- Asumd[s] + 1}
   else if (atensummerp$V1[atensummerp$V6 != 0.0][h] - atensummerp$V1[atensummerp$V6 != 0.0][h-1] < 47){Asumd[s] <- Asumd[s]}
}
  }
  print(Asumd[s])
}
为什么说参数长度为零哪里不对{:2_25:}