帶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)))