带exp功能的R中的行滚动

Question

我有带有14 col和1356行的数据帧df(A) 。 我有此功能，用于每12行应用一个总和，例如移动平均值：

rollapply(A,width=12, FUN= sum,by.column=T) 

但是在每12行中，我需要对exp(n/12)乘以一个乘法，其中n是从0到11的数字。综合而言，结果可能是：

rollapply(A,FUN=1°row *exp(0/12)+2°row*exp(2/12)....+12°row*exp(11/12),by.column=T) 

逻辑上每12行重复一次操作。 是可能的功能应用此rollapply或者我需要写一个循环for ？

Answer 1

您只需要更新您的功能：

n = 12
rollapply(A, width=n, FUN=function(x) sum(x*exp((seq(n)-1)/n)))