R编程问题。翻转加权硬币

Question

问：重复 100 次翻转加权硬币 200 的实验，计算每个实验的正面分数，并将结果存储在向量 y1 中。

我正在使用功能复制，但我遇到了一个问题，它只会显示 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