Marble & Urn на языке R

Question

Привет, ребята, я новичок в языке R, и вот вопрос HW от нашего профессора, который в основном просит вас случайным образом назначить 1123 мрамора на 97 урн .. и вам нужно создать скрипт для имитации этот процесс, и вам нужно будет получить вектор с 97 случайно назначенными номерами с суммой 1123

так вот что у меня есть. Я почти уверен, что часть со случайным присваиванием в порядке, просто я не знаю, как мне использовать счетчик, чтобы суммировать все мраморы в той же урне. Может ли кто-нибудь помочь? thank u thank u thank u !!

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