使用 seq 将循环中的值存储到向量中

Question

在编写循环时，我可以有效地将循环中的值存储到向量中：

z = 0.5
x <- vector("numeric", 10)
for(i in 1:10){
x[i] <- z - i/10 
}
>[1]  0.4  0.3  0.2  0.1  0.0 -0.1 -0.2 -0.3 -0.4 -0.5

但是，当我使用数字序列而不是冒号分隔符时：

z = 0.5
x <- vector("numeric", 20)
for(i in seq(0.05, 1, 0.05)){
x[i] <- z - i
}
>[1] -0.5  0.0  0.0  0.0  0.0  0.0  0.0  0.0  0.0  0.0

对于i 的每次迭代，它都无法返回一个向量，为什么会这样做？如何让循环与seq() 一起有效地工作？

Answer 1

您的索引也变成了双精度，这就是问题所在。您可以使用数字定义一个向量I，然后循环遍历索引的sequence。将I 和结果x 都设置为i 的子集。

z <- 0.5
x <- vector("numeric", 20)
I <- seq(0.05, 1, 0.05)
for (i in seq(I)) {
  x[i] <- z - I[i]
}
x
# [1]  0.45  0.40  0.35  0.30  0.25  0.20  0.15  0.10  0.05
# [10]  0.00 -0.05 -0.10 -0.15 -0.20 -0.25 -0.30 -0.35 -0.40
# [19] -0.45 -0.50

万一这不仅仅是一个简化的例子，因为 R 是矢量化的，你也可以这样做

z - seq(0.05, 1, 0.05)
# [1]  0.45  0.40  0.35  0.30  0.25  0.20  0.15  0.10  0.05
# [10]  0.00 -0.05 -0.10 -0.15 -0.20 -0.25 -0.30 -0.35 -0.40
# [19] -0.45 -0.50