Извините за плохо сформулированный заголовок, я старался сделать его коротким.Вот моя проблема: я смоделировал десять тысяч значений из распределения.Поскольку t - целые числа в диапазоне от 0 до двадцати, я хочу применить функцию 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))