我在R中使用了样本函数来生成100个公平硬币翻转的样本,这是我使用的命令.
fair.coin = c("heads" = 0.5, "tails" = 0.5)
然后,
x <- sample(fair.coin, size = 100, replace = TRUE)
> x
tails tails tails heads tails tails tails heads heads tails heads heads tails tails
0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5
heads tails heads tails tails tails tails heads heads heads heads tails heads tails
0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5
tails tails tails …r ×1