利用R语言写同时抛两枚硬币实验代码

可以使用R语言中的函数`sample()`来模拟抛硬币实验，其中1表示正面，0表示反面。

以下是同时抛两枚硬币实验的代码：

# 设置硬币正反两面的标记
coin <- c("HEAD", "TAIL")

# 模拟抛两枚硬币
coins <- sample(coin, 2, replace = TRUE)

# 输出结果
print(paste("两枚硬币结果：", coins[1], "和", coins[2]))

运行结果可能是：

[1] "两枚硬币结果： HEAD 和 TAIL"

其中，`sample(coin, 2, replace = TRUE)`表示从`coin`中随机抽取两个元素，可以重复抽取。这样就模拟了同时抛两枚硬币的情况。