R 如何模拟50个随机样本，计算每个样本的均值和方差

当我模拟50个正态分布的随机样本并试图计算每个模拟的平均值和方差时，我得到了一个错误：“有50个或更多的警告（使用warnings（）查看前50个）”

---

我想问一下如何正确计算平均值和标准偏差，以及为什么在执行代码时会出现“有50个或更多警告（使用warnings（）查看前50个）”的错误。

我个人会这样做

x <- replicate(50, rnorm(100, 100, 25), simplify = FALSE)
sapply(x, mean)
sapply(x, sd)

x <- replicate(50, rnorm(100, 100, 25), simplify = FALSE)
sapply(x, mean)
sapply(x, sd)

n=100
mean=100
sd=25 

sample=list()
meansample=NULL
sdsample=NULL

for (i in 1:50)
{

  sample[[i]]=rnorm(n,mean,sd)
  meansample[i]=mean(sample[[i]])
  sdsample[i]=sd(sample[[i]])

}

sample
meansample
sdsample