创建交替0'；s与R中的一串整数

我试图创建一个在递增整数和零之间交替的规则数字序列。e、 g

0,1,0,2,0,3,0,4。。。达到我需要在功能上指定的某个值。

函数

f（n）

为您提供所需的结果：

f <- function(n){
  i <- 1:(2*n)
  ifelse(i %% 2, 0, i/2)
}

f(5)
# 0 1 0 2 0 3 0 4 0 5

f函数
f（n）
给出您想要的结果：

f <- function(n){
  i <- 1:(2*n)
  ifelse(i %% 2, 0, i/2)
}

f(5)
# 0 1 0 2 0 3 0 4 0 5

f你可以用这个

n = 10
as.vector(rbind(rep(0,n), (1:n)))

结果:

0  1  0  2  0  3  0  4  0  5  0  6  0  7  0  8  0  9  0 10

你可以用这个

n = 10
as.vector(rbind(rep(0,n), (1:n)))

结果:

0  1  0  2  0  3  0  4  0  5  0  6  0  7  0  8  0  9  0 10