如何限制sapply函数的计算？

Question

几个星期前，我在根据另一个数据框架中的信息计算系数时遇到了问题 - the link to the last question。 @PoGibas提供的解决方案非常有效，但是，我必须在每行中定义的时间之后将计算限制为数据帧A中的10个下一个值。请你帮助我好吗？我的代码看起来像@PoGibas提出的：

sapply(1:length(time), function(x) sum(df1[x, which(foo >= time[x])]))

Answer 1

以下代码修改现有代码，以便仅选择前10个条目并进行求和（如果存在）。对于可能少于10个条目的情况，需要na.rm = TRUE。在这种情况下，R会自动用NA填充“空”指数。

sapply(1:length(time), function(x) sum(df1[x, which(foo >= time[x])][1:10], na.rm = TRUE))