Элементы суммы в списке, содержащем функции

Question

Я вычисляю ft для значений k, а затем сохраняю их в списке funcList.Теперь я хочу сохранить Xt как функцию t как сумму всех элементов в funclist.Вот что я сделал:

n = 100
funcList = list()

ft = function(t) {(abs(t) <= 1)*(1-(t)^2)+(abs(t) > 1)*(0)}

for (k in 1:100){
  funcList[[k]] = ft(t+k/n)*rnorm(100,0,1)
}

Xt = rowSums(sapply(funcList, ?)

Однако я совсем не уверен, как мне выразить Xt здесь и как использовать функции rowSums() и sapply().

Answer 1

Действительно не уверен, что ты пытаешься сделать.Ваш код выдает ошибку, так как в вашем цикле for не определено значение для t.Вы пытаетесь сделать что-то вроде этого:

n = 100
funcList = list(100)

ft = function(t) {(abs(t) <= 1)*(1-(t)^2)+(abs(t) > 1)*(0)}

for (k in 1:100){
  funcList[[k]] = function(t) {ft(t+k/n)*rnorm(100,0,1)}
}

для фиксированного t (скажем, t = -1), который вы можете сделать:

result <- sapply(funcList,function(ft_i)ft_i(-1))

, а затем вызвать rowSums

result2 <- rowSums(result)

но, честно говоря, это звучит как эстафета, которую сложно сделать ....