生成此序列的通用函数：R中的前n = 100个数字为1 4 3 6 5 8 7 10 9 12

Question

我试图在R中编写一个泛型函数以生成以下序列：前n个= 100的数字为1 4 3 6 5 8 7 10 9 12。

我尝试生成两个向量，一个用于从1开始的奇数，一个用于从4开始的偶数，并尝试使用循环将c（x [i]，y [i]）连接起来。

x<-seq.int(1,100,2)
y<-seq.int(4,100,2)
seqxy<-c(x,y){
for(i in 1:12){seqxy[i]<-c(x[i],y[i])
}
return(seqxy)

}

尝试运行循环时收到错误消息。 “错误：找不到对象'seqxy'”

Answer 1

您可以生成两个长度为100的向量，并根据当前索引是奇数还是偶数使用每个元素：

x = 1:100
y = 3:102

ifelse(seq_along(x) %% 2, x, y)

输出：

[1]   1   4   3   6   5   8   7  10   9  12  11  14 ...