编写重复掷硬币实验，实验次数分别为1，2，3....5000. 计算硬币正面出现的频率，画出频率轨迹图，写出频率的 大数定律，并从中频率轨迹图中直观理解大数定律。
详细解答如下，望采纳
在R语言中，我们可以使用内置的函数sample来实现重复掷硬币实验。下面是一个实现的例子：
# 首先，我们定义一个函数coin_flip，它接受一个整数n作为参数，返回掷n次硬币的结果
# 在这个函数内部，我们使用sample函数来掷硬币，并将结果存储在一个整数向量中
# 然后我们使用sum函数来计算正面出现的次数，并将正面出现的频率计算出来
coin_flip <- function(n) {
results <- sample(c(0, 1), size = n, replace = TRUE)
count <- sum(results)
frequency <- count / n
return(frequency)
}
# 然后，我们可以定义一个向量x，它包含1到5000的整数
# 接着，我们可以调用coin_flip函数，并将x中的每个元素作为参数传递给它
# 这样，我们就能够得到一个向量，其中包含每次实验中正面出现的频率
x <- 1:5000
frequencies <- sapply(x, coin_flip)
# 最后，我们可以使用plot函数来绘制频率轨迹图
plot(x, frequencies, type = "l")