R生成10个随机数并且相加等于100？

Question

rstudio生成10个随机数并且相加等于100，相当于红包算法，如何实现

Answer 1

在RStudio中生成10个随机数，并使它们的和等于100，可以通过以下步骤实现：

生成10个介于0和100之间的随机数。

计算这些随机数的总和。

如果总和小于100，则将最大的随机数增加一定量，直到总和等于100。

以下是具体的R代码实现：

# 初始化一个空向量来存储随机数

random_nums <- numeric(10) 

# 生成介于0和100之间的随机数 

for (i in 1:10) {  
 random_nums[i] <- runif(1, min = 0, max = 100)  
}  

# 计算这些随机数的总和  

sum_random_nums <- sum(random_nums)   

# 如果总和小于100，则需要增加最大的随机数，直到总和等于100 

while (sum_random_nums < 100) {  
 max_value <- max(random_nums)  
 max_index <- which.max(random_nums)  
 random_nums[max_index] <- random_nums[max_index] + runif(1, min = 1, max = 10)  
 sum_random_nums <- sum(random_nums)  
}  

# 输出生成的随机数 

print(random_nums)

这段代码首先生成了10个介于0和100之间的随机数，并计算它们的总和。如果总和小于100，则通过增加最大随机数的方式，直到总和等于100。每次增加的量是一个介于1和10之间的随机数。这样就能保证最终生成的随机数之和为100。