这对我来说应该更容易，很遗憾。我正在努力学习一个基本技能，然后应用到一个大列表中。
我有一个简单的列表thr2 <- list(1,2,3,4,5)，想要对元素1：3，2：4，3：5求和。
我尝试了thr3 <- lapply(seq(3,5), function(i) Reduce("+",thr2[i-2:i]))，以为它会将reduce应用到3-2：3、4-2：4和5-2：5。
但它却产生了这个，这显然不是我想要的

> thr3
[[1]]
[1] 1

[[2]]
[1] 3

[[3]]
[1] 6

我觉得我错过了一些基本的东西。