在R编程中模拟计算概率

Question

你有正常牌组中的所有黑牌，我有所有红牌。我们每人从半副牌中选择一张牌——最高的牌获胜。但我偷偷溜出去扔了你的9张梅花卡!模拟1000场比赛-我赢了多少?(a低)

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