如何生成一个向量 10000 次并且每次都存储某个位置？

Question

所以，我有一个特定的正态分布，它的平均值在一个向量中被复制了 10000 次。我需要找到向量中超出控制范围的第 9 个元素并存储它的位置，我已经做到了。现在，如何重复此操作 10000 次并将 10000 个位置存储为整数？这是我目前所拥有的：

LCI = 1000 - 3*4^(1/2)

LCS = 1000 + 3*4/4^(1/2)

k = replicate(10000, (mean(rnorm(4, mean=1000, sd=4))))

k[k < LCI | k > LCS]

n = which(k %in% c(k[k < LCI | k > LCS]))

n[9]

奖金问题：那么，将我得到的所有这 10000 个数字相加的最佳方法是什么？

Answer 1

我不确定我是否完全理解了问题 - 你能不能循环遍历它并将它存储在一个向量中，然后对值求和？

#empty vector  
l <- c()

#making constant
LCI = 1000 - 3*4^(1/2)

LCS = 1000 + 3*4/4^(1/2)

#for loop with you code
for(i in 1:1000){


  k = replicate(10000, (mean(rnorm(4, mean=1000, sd=4))))

  #k[k < LCI | k > LCS] (don't need for the loop)

  n = which(k %in% c(k[k < LCI | k > LCS]))

  #store in empty vector as integer
  l[i] <- as.integer(n[9])
}

#check output
l

#sum of all values
sum(l)

如何生成一个向量 10000 次并且每次都存储某个位置？

How to generate a vector 10000 times and each time store a certain position?

r

vector

repeat