R：用两个零后的1填充矩阵

这个矩阵是10x1矩阵。 我想在每两个零（0）个位置后填充一个。更清楚地说，应该是这样的：

 [1,]    0
 [2,]    0
 [3,]    1
 [4,]    1
 [5,]    0
 [6,]    0
 [7,]    1
 [8,]    1
 [9,]    0
[10,]    0

所以在两个0之后有两个1。 我这样做没有一个循环，这是非常简单的，我可以用什么做填补每2个职位的1。 以下是迄今为止的简单代码：

value=10
coef=matrix(c(0),nrow=value)
coef[1]=0
coef[2]=0
coef[3]=1
coef[4]=1
coef[5]=0
coef[6]=0
coef[7]=1
coef[8]=1
coef[9]=0
coef[10]=0

---

我不太明白。为什么不直接创建相应的矩阵呢？而不是创建一个10x1零矩阵，然后替换条目

matrix(rep(c(0, 1), each = 2, length.out = 10), nrow = 10)
#      [,1]
# [1,]    0
# [2,]    0
# [3,]    1
# [4,]    1
# [5,]    0
# [6,]    0
# [7,]    1
# [8,]    1
# [9,]    0
#[10,]    0

---

我不太明白。为什么不直接创建相应的矩阵呢？而不是创建一个10x1零矩阵，然后替换条目

matrix(rep(c(0, 1), each = 2, length.out = 10), nrow = 10)
#      [,1]
# [1,]    0
# [2,]    0
# [3,]    1
# [4,]    1
# [5,]    0
# [6,]    0
# [7,]    1
# [8,]    1
# [9,]    0
#[10,]    0