可以使用sample函数生成注解中建议的随机样本。
你的实验是投掷2个硬币，但是你没有指定次数，让我们从10次开始，就像你尝试的代码所显示的那样。
sample函数有一个prob参数来指定概率，投掷2个硬币得到的正面数可以是0、1或2（正如代码所正确指定的），这些概率分别为1/4、1/2和1/4，因此，R命令应该是：

n.heads <- sample(0:2, size=10, replace=TRUE, prob=c(1/4, 1/2, 1/4)); n.heads
[1] 0 1 1 1 2 1 1 0 2 1

你可以用条形图来形象化地表示：

barplot(table(n.heads)/10)

为了便于说明，最好设置随机数种子，以便其他人可以跟随。

set.seed(1)
n.heads <- sample(0:2, size=10, replace=TRUE, prob=c(1/4, 1/2, 1/4)); n.heads
[1] 1 1 2 0 1 0 0 2 2 1
barplot(table(n.heads)/10)

你可能想增加大小参数来观察分布如何变化。尾部的数量应该是相似的（通过对称）。