具有条件的向量生成

Question

如何在R中创建这种数组？

iii <- seq(from = 1, to = 49, by = 2)

这只会创造价值：

1  3  5 .. 49

我需要创建的数组：

1, 0, 3, 0, 5, 0, 7, . . . , 0, 49

Answer 1

使用：

x <- 1:11
x * (x %% 2)

给予：

1 1 0 3 0 5 0 7 0 9 0 11

这样做的目的是：

• x %% 2为x的不均匀值创建一个向量，为x的偶数值创建零的向量。
• 因此，将x与x %% 2相乘，得到一个介于零的不均匀值的向量。

根据@lmo的建议，您还可以：

x <- seq(1, 11, 2)
head(rep(x, each = 2) * (1:0), -1)

结果也是一样的。