[问答] 执行条件语句时，显示替换长度为零，怎么解决 [推广有奖]

现在有以下程序：
已知
> ry2
   SHeader EHeader  Type
1        0       1          0
2        1       2          1
3        2       3          1
4        3       4          0
5        4       5          1
6        5       6          1
7        6       7          0
Si=ry2$SHeader
Ei=ry2$EHeader  
type=ry2$Type

sn=NULL
{if(is.logical(type[i]==type[i+1])){Si[i+1]=Si[i];sn[i]=0;sn[i+1]=1}
if(is.logical(type[i]!=type[i+1]&&type[i+1]!=type[i+2])) {sn[i+1]=2}
if(is.logical(type[1]!=type[2])) {sn[1]=type[1]}
sn[length(type)]=1
}
Si

sn
运行上述程序时，出现错误：“Error in Si[i + 1] = Si[i] : replacement has length zero”，一直没找到问题所在，各位大神麻烦帮忙解决一下，万分感谢！