課程導論

R 的機率謎題

Peter Chi

Assistant Professor of Statistics

課程總覽

  • 第 1 章：經典問題

    • 生日悖論
    • Monty Hall 問題

  • 第 2 章：骰子遊戲

    • Yahtzee
    • 卡坦島
    • Craps

  • 第 3 章：源自網路的範例

    • iPhone 解鎖密碼組合
    • 正負號誤差相消
    • 因式分解二次式

  • 第 4 章：撲克牌遊戲

    • 德州撲克底牌
    • WSOP 連續獲獎入圍
    • 馮紐曼撲克模型
R 的機率謎題

組合學

  • factorial(n)
    • factorial(3) $= 3! = 3 \times 2 \times 1$
factorial(3)

6
  • choose(n,k)
    • choose(5,3) $ = {5 \choose 3} = \frac{5!}{3! \times (5-3)!} $
choose(5,3)

10
R 的機率謎題

模擬

  • 隨機抽樣物件 - sample()
  • 模擬擲硬幣 - rbinom()
  • 重複執行流程
    • replicate()
    • 迴圈：for、while
  • 設定亂數種子 - set.seed()
R 的機率謎題

更多 for 迴圈細節

for(i in 1:10){
  sum(sample(x = c(1,2,3,4,5,6), size = 2, replace = TRUE))
}

儲存結果：

rolls <- rep(NA, 10)
for(i in 1:10){
  rolls[i] <- sum(sample(x = c(1,2,3,4,5,6), size = 2, replace = TRUE))
}

rolls

3  6  3  9  9  3  6 11  9 10
R 的機率謎題

函式

my_function <- function(n){
  answer <- n^3
  return(answer)
}

 

my_function(10)

1000
R 的機率謎題

一起來練習吧！

R 的機率謎題

Preparing Video For Download...