Texas Hold'em

Zagadki prawdopodobieństwa w R

Peter Chi

Assistant Professor of Statistics Villanova University

Karty wspólne w Texas Hold'em

Outy: Karty zmieniające przegraną rękę w wygrywającą

Reguła dopełnienia: $P(A) = 1 - P(A^c)$

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

0.5333333

Użycie choose na wektorze:

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) $$

Zakład na rzut monetą:

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

-1  1.5

sum(probs * values)

0.5

Zagadki prawdopodobieństwa w R