在 R 中输出和保存嵌套循环的结果

Question

我正在使用下面的脚本来循环数据w三次，当我使用打印来显示它们时，它会输出三个结果。 我试图将结果输出到指定的变量my_vector(j)但只显示最后一次迭代结果。 如何将每次迭代的结果保存在数组中？

DU<-c(70,85,95)
a<-1-sqrt(3)*((100-DU)/130)
     
my_vector = c()
w<-c(0.5,0.6,0.7,0.8,0.9,1.0,1.1,1.2,1.3,1.4,1.5)
w_i<-1/w
for (i in 1:length(DU)){
  for (j in 1:length(w)){
   if (w_i[j] > 2-a[i]) {
       E[j]<-1
    } else if (w_i[j]<2-a[i]) {
       E[j]<-((a[i]*w[j]+1)^2-4*w[j])/(4*(a[i]-1)*w[j]^2)
    } else {
       E[j]=w_i[j]
    }
    my_vector[j]<-(E[j])
    print(E[j])
  }
  my_vector[j]<-(E[j])
 }

Answer 1

因为当你调用my_vector[j]<-(E[j]) ， j只取 1 和length(w)之间的值，所以对于循环的每次迭代i你重写一切（每次你改变i的值时j重新开始到 1)。

替换为：

my_vector[j + length(w)*(i-1)]<-(E[j])

另外，我认为您应该删除最后一行

my_vector[j]<-(E[j])

因为它在j的循环之外（或者至少我不明白它为什么在这里）