如何在 for 循环之后获取 x 中的整个元素以在 R 中绘制

Question

我想知道如何在for-loop之后获取向量x的整个 5 个元素，就像我在下面的 R 代码中获取向量ts的 5 个元素一样：

if(!require(BayesFactor)){install.packages('BayesFactor')} ; library(BayesFactor)
ts = numeric(5)
x = numeric(5)
for(i in 1:5){
 x = c(1, 3, 10, 30, 100)[i]
 f <- function(t){
 abs(ttest.tstat( t, 50, 50, rscale = sqrt(2)/2, simple = TRUE)[[1]] - x)
 }
 ts[i] = optimize(f, interval = c(-6, 6))[[1]]
  }
plot(ts, x, t = "o") #`x` contains only the last element (i.e., 100) of the `x` vector above

Answer 1

您可以在循环之前启动x向量，然后在循环中引用它。这样你以后仍然可以拥有它。

x = c(1, 3, 10, 30, 100)
for(i in 1:5){
    x_int = x[i]
    f <- function(t){
        abs(ttest.tstat( t, 50, 50, rscale = sqrt(2)/2, simple = TRUE)[[1]] - x_int)
    }
    ts[i] = optimize(f, interval = c(-6, 6))[[1]]
}
plot(ts, x, t = "o")

这是使用 sapply 的等效操作(我还没有测试过这个，请自己测试，如果它没有按预期工作，请告诉我(：

x = c(1, 3, 10, 30, 100)
f <- function(t, x_int){
    abs(ttest.tstat( t, 50, 50, rscale = sqrt(2)/2, simple = TRUE)[[1]] - x_int)
}
ts <- sapply( x, function(i) optimize(f, interval = c(-6, 6), x_int = i)[[1]] )
plot(ts, x, t = "o")