有人帮我看看问题出在哪吗？

b <- c(0,1,0,1,1,1,0,0,1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,0,1,0,0,1,1,1,0,1,0,1,0,1,0,0,
       0,0,0,0,0,0,1,0,1,1,0,0,1,1,1,0,1,0,1,0,0,0,1,0,0,1,0,1,0,1,0,0,0,0,0,0,0,0)

N=length(b);k=1;
for (i in 1:N-1) {
  if(b !=b[i+1]){k=k+1;r=k}
}
为什么会报下面的错误？新手不知道为什么会这样，望各位大神求解
Error in if (b != b[i + 1]) { : argument is of length zero

1. N=length(b);k=1;
   
2. for (j in 1:N) {
   
3.   for (i in 1:(N-1)) {
   
4.     if(b[j] !=b[i+1]){k=k+1;r=k}
   
5.   }
   
6. }

复制代码

zhou1_20 发表于 2018-5-6 16:30

谢谢，但是我只需比较相邻的，如果是双重循环，r的数值就过大了。