课程简介

R 中的概率谜题

Peter Chi

Assistant Professor of Statistics

课程概览

  • 第1章：经典问题

    • 生日悖论
    • 蒙提霍尔问题

  • 第2章：骰子游戏

    • 雅兹骰子
    • 卡坦岛
    • 克拉普斯

  • 第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 中的概率谜题

Passons à la pratique !

R 中的概率谜题

Preparing Video For Download...