德州扑克

R 中的概率谜题

Peter Chi

Assistant Professor of Statistics Villanova University

德州扑克的公共牌

出路（outs）： 能把输牌提升为赢牌的牌

补充规则：$P(A) = 1 - P(A^c)$

p_lose <- choose(10-3,2) / choose(10,2)
p_win <- 1 - p_lose
p_win

0.5333333

在向量上使用 choose：

outs <- c(0,1,2,3)

p_lose <- choose(10-outs,2) / choose(10,2)
p_win <- 1 - p_lose
p_win

0.0000000 0.2000000 0.3777778 0.5333333

$$ E(X) = \sum_{\text{all values}} x \cdot P(X=x) $$

抛硬币下注：

probs <- c(0.5, 0.5)
values <- c(-2, 3)
probs * values

-1  1.5

sum(probs * values)

0.5

R 中的概率谜题