在R中模拟为达到真实标准差所需的样本数

# 设置所需的真实标准差
true_sd <- 2

# 初始化样本大小和样本标准差的向量
sample_sizes <- c()
sample_sds <- c()

# 循环生成样本并计算标准差
while (TRUE) {
  # 生成一个具有所需标准差的随机样本
  sample <- rnorm(n = 100, mean = 0, sd = true_sd)
  
  # 计算样本标准差
  sample_sd <- sd(sample)
  
  # 记录样本大小和样本标准差
  sample_sizes <- c(sample_sizes, length(sample))
  sample_sds <- c(sample_sds, sample_sd)
  
  # 判断样本标准差是否接近所需的真实标准差
  if (abs(sample_sd - true_sd) < 0.01) {
    break
  }
}

# 分析记录的样本大小数据
required_sample_size <- max(sample_sizes)

# 输出结果
print(paste("为达到真实标准差所需的样本数为:", required_sample_size))