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

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

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

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

# 模拟抛两枚硬币
coin_1 <- sample(coin, 1)
coin_2 <- sample(coin, 1)

# 输出结果
print(paste("第一枚硬币结果：", coin_1))
print(paste("第二枚硬币结果：", coin_2))

运行结果可能是：

[1] "第一枚硬币结果： HEAD"
[1] "第二枚硬币结果： TAIL"