用计算机模拟1000次投掷一枚均匀硬币的实验结果，对于i＝1，2…10，及i＝50,100,分别写出前10i次各个结果出现的频率。观察频率随实验次数增加的变化规律，并写出上述任务的R语言代码程序

Question

用计算机模拟1000次投掷一枚均匀硬币的实验结果，对于i＝1，2…10，及i＝50,100,分别写出前10i次各个结果出现的频率。观察频率随实验次数增加的变化规律，并写出上述任务的R语言代码程序

Answer 1

看一下这个，记得采纳哦

# 设定实验次数  
n_experiments <- 1000  
  
# 用于保存结果的向量  
results <- numeric(n_experiments)  
  
# 进行模拟实验  
set.seed(123) # 为了结果的可重复性  
for (i in 1:n_experiments) {  
  results[i] <- rbinom(1, size = 1, prob = 0.5) # rbinom模拟二项分布，这里模拟投掷硬币  
}  
  
# 计算前10次实验，100次实验，500次实验，1000次实验的频率  
n_groups <- c(10, 100, 500, 1000)  
frequencies <- numeric(length(n_groups))  
  
for (i in 1:length(n_groups)) {  
  frequencies[i] <- sum(results[1:n_groups[i]]) / n_groups[i] # 计算频率  
}  
  
# 输出结果  
print(frequencies)