Marble＆Urn in language 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

97 urnsの中に大理石を入れる場所を1123回選択します。あなたは（?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