大理石＆amp;语言R

Question

嘿伙计们我是语言R的新手，这是我们教授提出的一个硬件问题，它基本上要求你随机分配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至＆＃34;检查＆＃34;：

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