如何将此for循环转换为Apply函数？

Question

我对R还是很陌生，目前正在研究我在网上找到的蒙特卡洛模拟示例，但是它在for循环中给出。我想摆脱这些，但努力将其转换为apply函数。任何帮助，将不胜感激：

for (k in 1:1000)
    {
       rolls = runif(1,3000,5000)
       bags = runif(1,2000,4000)
       cases = runif(1,150,200)*30
       total = min (rolls, bags, cases)
       results = rbind(results, data.frame(rolls, bags, cases, total))
     }

Answer 1

您不需要for循环，也不需要任何apply功能。

rolls = runif(1000,3000,5000)
bags = runif(1000,2000,4000)
cases = runif(1000,150,200)*30
total = pmin(rolls, bags, cases)
results <- data.frame(rolls, bags, cases, total)