如何在R

Question

考虑一个加载的骰子，使得获得1的结果的概率为2p / 3，获得2、3、4或5的概率分别为p，获得6的概率为3p / 2。

1. 创建一个计算机程序来模拟上面加载的骰子。生成输出。
2. 使用输出进行绘图以检查程序是否正确运行。

我发现p为6/37，但我不知道如何为已加载的骰子编码。

我知道如何模拟一个公平的骰子：

sample(1:6, size=1, replace = TRUE)

Answer 1

这里是执行此操作的一种方法：您可以通过指定prob参数来设置样本内的概率。

还要注意，我为set.seed设置了一个随机种子：这样可以使您的结果可重复。

p <- 6/37
myprobs <- c(2/3 * p, p, p, p, p, 3/2*p)

set.seed(1)
x <- sample(1:6, size = 100, replace = TRUE, prob = myprobs)

barplot(table(x))