利用R语言写同时抛两枚硬币实验代码，研究n次规律

可以使用循环语句来重复进行n次实验，并统计正面朝上的次数，计算概率。

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

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

# 定义实验次数
n <- 10

# 定义计数器
count <- 0

# 进行n次实验
for (i in 1:n) {
  # 模拟抛两枚硬币
  coins <- sample(coin, 2, replace = TRUE)
  
  # 统计正面朝上的次数
  count <- count + sum(coins == "HEAD")
  
  # 输出每一次实验的结果
  print(paste("第", i, "次实验结果：", coins[1], "和", coins[2]))
}

# 输出总体实验结果
cat("共进行", n, "次实验\n")
cat("正面朝上的次数为", count, "\n")
cat("正面朝上的概率为", count / (n * 2))

运行结果可能是：

[1] "第 1 次实验结果： HEAD 和 TAIL"
[1] "第 2 次实验结果： TAIL 和 TAIL"
[1] "第 3 次实验结果： HEAD 和 TAIL"
[1] "第 4 次实验结果： TAIL 和 TAIL"
[1] "第 5 次实验结果： HEAD 和 HEAD"
[1] "第 6 次实验结果： HEAD 和 TAIL"
[1] "第 7 次实验结果： HEAD 和 TAIL"
[1] "第 8 次实验结果： TAIL 和 TAIL"
[1] "第 9 次实验结果： TAIL 和 TAIL"
[1] "第 10 次实验结果： HEAD 和 HEAD"
共进行 10 次实验
正面朝上的次数为 5 
正面朝上的概率为 0.25

其中，循环语句`for (i in 1:n)`用于重复进行n次实验。每一次实验都会模拟抛两枚硬币，统计正面朝上的次数，并输出实验结果。最后，统计总体实验结果，计算正面朝上的概率。