在R投掷3枚公平硬币

Question

X =显示三个硬币被抛出时的头部数量。 求P（X = 1）和E（X）。

说，我想使用sample()来解决这个问题，并且在R中使用replicate()函数，即使有一个名为rbinom()的函数。

我的尝试：

noOfCoinTosses = 3;
noOfExperiments = 5;
mySamples <-replicate(noOfExperiments,
                    {mySamples <- sample(c("H", "T"), noOfCoinTosses, replace = T, prob=c(0.5, 0.5))
                    })
headCount = length(which(mySamples=="H"))
probOfCoinToss <- headCount / noOfExperiments   # 1.6
meanOfCoinToss = ??

关于P（X）我是否在正确的轨道上？如果是，我怎样才能找到E（X）？