R程序设计中的仿真计算概率

Question

你有普通牌的所有黑卡，我有所有的红牌。我们每个人都从我们的半甲板中选择一张牌--最高的牌获胜。但我已经偷偷溜出去把你的九根球杆扔掉了！模拟1000场比赛-我赢了多少场？(王牌低。)

reds = rep(1:13, 2)
n = 1000
sum(sample(reds[-9], n, rep = T) < sample(reds, n, rep = T))

这是我的代码，我想显示多少次我赢了当模拟1000场比赛，如果9个俱乐部从黑卡删除。

Answer 1

如果我的理解是正确的，您只需将奖金总数除以模拟的总数即可。

sum(sample(reds[-9], n, rep = T) < sample(reds, n, rep = T))/n