矢量均值的饱和度

Question

我有一个矢量，希望看到平均值的饱和度。 平均计算逐步扩展到向量的下一个元素。

实际上我有一个正在运行的版本，但由于我有超过100000个元素，这个运行时间太长了。 有什么想法加快这个速度吗？

 # create sample vector    
set.seed(12345)
iterations <- 10000   
t <- runif(iterations, min = 0, max = 10)

results <- NULL
for(i in 1:iterations ) 
{
    results[i] <- mean(t[1:i])   # calculate the mean for the first i elements
}
plot(results)