如何创建应用于一组数据的函数均值向量？

Question

很抱歉，措辞不佳，我试图将其简短。这是我的问题：我从分布中模拟了一万个值。因为t是从0到20的整数，所以我想将t的函数应用于数据。然后对于每个t，我希望将新数据集的均值放在单个向量中。我有我的功能，只是在迭代它来创建许多新的数据向量并在单个向量中获得均值时遇到麻烦。我不想经历二十次。谢谢！

Tx <- (x1, x2, ..., xn)
fcn <- function(t){ifelse(t < Tx & Tx <20, 10000*exp(-.05*(Tx.min20 - t)), ifelse(Tx < t, NA, 0))}
t <- (0:20)

这就是我所拥有的。我可以运行我的代码并获取单个矢量，例如

fcn.0 = (fcn.0(x1), fcn.0(x2), ..., fcn.0(xn))
    ...
    fcn.20 = (fcn.20(x1), fcn.20(x2), ... , fcn.20(xn))

我希望能够一次全部创建它们，然后得到类似

mean.vec = (mean(fcn.0), mean(fcn.1, ..., mean(fcn.20))