如何在 R 中编写不同赔率的彩票

【问题标题】：How to write a Lottery with varying odds in R如何在 R 中编写不同赔率的彩票
【发布时间】：2023-02-02 22:41:34
【问题描述】：

我正在尝试编写一个 R 代码来生成下图中描述的玩游戏的“n”次迭代（埃尔斯伯格悖论）。

Ellsberg <- function(n){
  r <- 30
  b <- floor(runif(n,0,61))
  y <- 60 - b
}

我基本上想把这段代码变成一个函数，输出从三个选项中随机选择的颜色；红色、黄色或黑色给定黑色和黄色球的随机数

我用上面的函数输出了一个 n 矩阵，它有 3 行不同的长度，但不知道如何从那里移动

【问题讨论】：

标签： r

【解决方案1】：

您可以模拟从三色 Ellsberg Urn 情景中提取，如下所示：

Ellsberg <- function(){
  b=sample(0:60,1)
  sample(c(rep("r", 30),rep("b",b),rep("y",60-b)),1)
}

然后你可以复制这个，n 次。

set.seed(1234)
n=1000
table(replicate(1000, Ellsberg()))

输出：

  b   r   y 
347 321 332

【讨论】：