r语言模拟同时抛掷两枚硬币正面朝上概率

好的，您可以使用以下代码来模拟同时抛掷两枚硬币正面朝上的概率：

# 设置模拟次数
n_sim <- 100000 

# 模拟两枚硬币抛掷结果
coin1 <- sample(c(0, 1), n_sim, replace = TRUE)
coin2 <- sample(c(0, 1), n_sim, replace = TRUE)

# 计算正面朝上的次数
n_heads <- sum(coin1 == 1 & coin2 == 1)

# 计算正面朝上的概率
prob_heads <- n_heads / n_sim

# 输出结果
paste("正面朝上的概率为：", prob_heads)

这段代码会进行 $100,000$ 次模拟，每次模拟会随机抛掷两枚硬币，并记录它们的结果。然后，我们计算两枚硬币同时正面朝上的次数，再除以总的模拟次数，就得到了正面朝上的概率。在这个例子中，由于两枚硬币是独立的，因此正面朝上的概率为 $0.25$。