语言中的大理石与瓮R

Question

嗨，我是R语言新手，这里有一个来自我们教授的HW问题，基本上是要求您随机分配1123个弹珠到97个瓮。您需要制作一个脚本来模拟这个过程，你需要得到一个有97个随机分配数字的矢量，总和为1123

所以这里是我到目前为止的。我很确定随机分配的部分是可以的，只是我不知道如何使用柜台来总结同一个瓮中的所有弹珠。任何人都可以帮忙吗？谢谢你，谢谢你，谢谢你！

for(i in 1:1123){ 
    x=floor(runif(1,1,98)) 
    for (j in 1:97){ 
     Count=0 
     if (j=x){ 
     Count=Count+1 
     } 
    } 
print(Count) 
} 

Answer 1

所以你想要选择1123次，在97个瓮中放入大理石。 可以使用sample（见?sample）：

s <- sample(1:97, 1123, replace=TRUE) 

可以制表结果与table(s)（打印时有点混乱），或将其转换为data.frame，以 “检查”：

df <- data.frame(table(s)) 
nrow(df)  # 97 urns 
sum(df$Freq) # 1123 marbles