Q：进行100次重复加权硬币实验，计算200次每个实验的正面分数，并将结果存储在向量y1中。
我正在使用复制函数，但是遇到一个问题，它只能显示100次重复的百分比，而不能显示每个翻转。
这是我到目前为止所拥有的。
x= (sample(c(0,1), size=200, prob=c(.10,.90), replace=TRUE))
replicate(x,100)
答案 0 :(得分：3)
这将执行：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