Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/loops/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
for循环中的R错误_R_Loops - Fatal编程技术网

for循环中的R错误

for循环中的R错误,r,loops,R,Loops,我想制作几个数字列表,然后将它们连接起来,即 列表1=1,1,1,1 列表2=2,2,2,2 清单3=3,3,3,3 最终列表=1,1,1,1,2,2,2,3,3,3,3,3 我尝试了以下方法来创建列表1到3 ageseq <- c(1,2,3) n <- 3 n2 <- 4 for (i in 1:n){ for (j in 1:n){ age[i] <- c(rep(ageseq[j],n2)) } } ageseq因此,问题是您正在将长度为1

我想制作几个数字列表,然后将它们连接起来,即

列表1=1,1,1,1

列表2=2,2,2,2

清单3=3,3,3,3

最终列表=1,1,1,1,2,2,2,3,3,3,3,3

我尝试了以下方法来创建列表1到3

ageseq <- c(1,2,3)
n <- 3
n2 <- 4

for (i in 1:n){
  for (j in 1:n){
    age[i] <- c(rep(ageseq[j],n2))
  }  
}

ageseq因此,问题是您正在将长度为1的元素(
age[i]
)替换为长度为4的元素(
rep(ageseq[j],n2)
)。您没有连接列表,而是试图用数字列表替换number i元素,这会导致警告

如果要按指定的方式执行,则需要使用循环:

ageseq <- c(1,2,3)
n <- 3
n2 <- 4
age <- c()

for (j in 1:n){
  age <- c(age, rep(ageseq[j],n2))
}
ageseq <- c(1,2,3)
n <- 3
n2 <- 4
age_list <- list()

for (j in 1:n){
  age_list[[j]] <- rep(ageseq[j],n2)
}

ageseq因此,问题是您正在将长度为1的元素(
age[i]
)替换为长度为4的元素(
rep(ageseq[j],n2)
)。您没有连接列表,而是试图用数字列表替换number i元素,这会导致警告

如果要按指定的方式执行,则需要使用循环:

ageseq <- c(1,2,3)
n <- 3
n2 <- 4
age <- c()

for (j in 1:n){
  age <- c(age, rep(ageseq[j],n2))
}
ageseq <- c(1,2,3)
n <- 3
n2 <- 4
age_list <- list()

for (j in 1:n){
  age_list[[j]] <- rep(ageseq[j],n2)
}

ageseq因此,问题是您正在将长度为1的元素(
age[i]
)替换为长度为4的元素(
rep(ageseq[j],n2)
)。您没有连接列表,而是试图用数字列表替换number i元素,这会导致警告

如果要按指定的方式执行,则需要使用循环:

ageseq <- c(1,2,3)
n <- 3
n2 <- 4
age <- c()

for (j in 1:n){
  age <- c(age, rep(ageseq[j],n2))
}
ageseq <- c(1,2,3)
n <- 3
n2 <- 4
age_list <- list()

for (j in 1:n){
  age_list[[j]] <- rep(ageseq[j],n2)
}

ageseq因此,问题是您正在将长度为1的元素(
age[i]
)替换为长度为4的元素(
rep(ageseq[j],n2)
)。您没有连接列表,而是试图用数字列表替换number i元素,这会导致警告

如果要按指定的方式执行,则需要使用循环:

ageseq <- c(1,2,3)
n <- 3
n2 <- 4
age <- c()

for (j in 1:n){
  age <- c(age, rep(ageseq[j],n2))
}
ageseq <- c(1,2,3)
n <- 3
n2 <- 4
age_list <- list()

for (j in 1:n){
  age_list[[j]] <- rep(ageseq[j],n2)
}
ageseq您可以尝试:

unlist(lapply(1:3, rep, 4))
您可以尝试:

unlist(lapply(1:3, rep, 4))
您可以尝试:

unlist(lapply(1:3, rep, 4))
您可以尝试:

unlist(lapply(1:3, rep, 4))

只需使用
rep(1:3,每个=4)
。什么是
age
对象?什么是n2?年龄对象应该是长度列表。然后,我想将这些
n
长度
n2
的列表连接起来,形成一个长度
3n2
的列表。实际上,
n2=>30
n>70
。谢谢尼古拉。太简单了!我以前尝试过
rep(1:3,4)
,但不知道
每个
。只需使用
rep(1:3,每个=4)
。什么是
age
对象?什么是n2?年龄对象应该是长度列表。然后,我想将这些
n
长度
n2
的列表连接起来,形成一个长度
3n2
的列表。实际上,
n2=>30
n>70
。谢谢尼古拉。太简单了!我以前尝试过
rep(1:3,4)
,但不知道
每个
。只需使用
rep(1:3,每个=4)
。什么是
age
对象?什么是n2?年龄对象应该是长度列表。然后,我想将这些
n
长度
n2
的列表连接起来,形成一个长度
3n2
的列表。实际上,
n2=>30
n>70
。谢谢尼古拉。太简单了!我以前尝试过
rep(1:3,4)
,但不知道
每个
。只需使用
rep(1:3,每个=4)
。什么是
age
对象?什么是n2?年龄对象应该是长度列表。然后,我想将这些
n
长度
n2
的列表连接起来,形成一个长度
3n2
的列表。实际上,
n2=>30
n>70
。谢谢尼古拉。太简单了!我以前试过
rep(1:3,4)
,但不知道
每一个