Как посчитать число успехов биномиального образца в R?

Question

Я не привык к R, но я хочу сделать это в псевдокоде

T = 0
F = 0
for (i in 1:1000) {
  successCount <- count(rbinom(1,100,0.6)==1)
  if(successCount >= 59)
      T = T + 1
  else
      F = F + 1
}

Попытка запустить симуляцию без повторного запуска / отображения.

successCount <- count(rbinom(1,100,0.6)==1) 

Эта часть, которую я искал, но не могу найти, как это сделать. Отдыхай я думаю работа

Answer 1

Как-то так?

table(replicate(1000,ifelse(sum(rbinom(100,1,0.6)==1)>=59,1,0)))
  0   1 
374 626

, где 0 представляет F, а 1 представляет T.