Проблема с R Программирование. Подбрасывание взвешенной монеты

Question

В: Выполните 100 повторений эксперимента по подбрасыванию взвешенной монеты 200, вычислите долю голов для каждого эксперимента и сохраните результат в векторе y1.

Я использую функцию replicate, но я столкнулся с проблемой, когда она будет показывать мне только процент из 100 повторений, но не каждый отдельный бросок.

Вот то, что я имею до сих пор.

x= (sample(c(0,1), size=200, prob=c(.10,.90), replace=TRUE))
replicate(x,100) 

Answer 1

Это будет делать: y1 = rbinom(100,200,0.9)/200

Но если вы хотите использовать свою начальную логику:

y1 = apply(replicate(100,sample(0:1, size=200, prob=c(.1,.9), rep=T)),2,sum)/200