-2
的意思是,我有以下代码每复制
set.seed(30)
nsim <- 50 ## NUMBER OF REPLICATIONS
demand <- c(12,13,24,12,13,12,14,10,11,10)
res <- replicate(nsim, {
load <- runif(10,11,14)
diff <- load - demand ## DIFFERENCE BETWEEN DEMAND AND LOAD
return(sum(diff < 0))
})
res
[1] 6 5 7 4 4 5 4 3 6 4 5 5 5 4 2 5 3 3 3 5 3 2 4 6 5 4 4 3 5 6 4 4 3 6 5 3 5 5 4 3 3
[42] 6 4 4 4 6 6 5 4 5
我有一个巨大的数据集和问题是什么是计算平均为每一个复制的最快方式。例如,在第一次复制的资源是6
所以结果应该为第二(6+5)/2=5.5
第三(6+5+7)/3=6
是6/1=6
和最后复制sum(res)/nsim=4.38