概率权的高效的随机阵列，其总结1(Efficient random array of probabi

我需要的东西很简单，在我看来，我的解决方案有太多的步骤（考虑到R的统计完成）：

我所需要的是N概率权的阵列总和至多一个（0和1之间）。 什么是一个简单的和/或有效的解决方案？

我的解决方案：

N <- 40
weights <- runif(40)
f <- 1/sum(weights) 
weights <- f*weights
print(sum(weights))

文章来源: Efficient random array of probability weights that sum 1