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:}