将自建数据保存在R中的向量中

我必须做一项作业，需要一些帮助。在第一步中，我必须创建数据

我必须编写一个函数来计算所需数量的正态分布数字的平均值，并重复这个过程以获得所需数量的重复

该函数应仅返回一个单独由计算平均值组成的向量

这是我到目前为止的代码：

 meanulator <- function(x=1000){
  mean(rnorm(x))
  }

meanulator() #calculates means of random rnorm-numbers


meanulatorrep <- function(r=10) {
  for (i in 1:r) {
  x <- meanulator(x=1000)
  print(x)
  }
}

meanulatorrep() #repeats it

vec <- meanulatorrep(c(r=100))

vec <- c( meanulatorrep(r=10))

---

meanulator作为for循环的替代方案，您可以使用
replicate
如下所示：

meanulatorrep <- function(r=10, x = 1000) {
   replicate(r, meanulator(x = x))
}

meanulatorrep()
# [1] -0.013763838 -0.005205456 -0.022675000  0.032995429  0.043952000  0.020025558 -0.059852671  0.010714884 -0.025530839
#[10]  0.009895310
meanulatorrep(r = 3)
#[1]  0.015299678 -0.003567159  0.036352255
meanulatorrep(r = 3, x = 5)
#[1]  0.1186618  0.2755995 -0.3906417

meanulatorrep您需要更改meanulatorrep以保存值，而不是打印

meanulatorrep <- function(r = 10) {
  x2 <- NULL

  for (i in 1:r) {
    x <- meanulator(x = 1000)
    x2[i] <- c(x)}

  return(x2)
}

meanulatorrep
meanulatorrep（）
未返回任何内容。。。