R中ts对象的月累计增长率按月计算？

Question

我一直在努力创造一个月的累积增长率，以及来自＆＃34; tis＆＃34;的增长。包。我已经做了一些修改。

例如，在2017年3月的下一次意甲（obs = 38）。我想估算2017年1月到3月之间的累计增长率，除以2016年的1月到3月，减去1并乘以100（如函数所示）。

我怎样才能实现年度累计增长率？任何想法都会非常难以理解。

library(tis)

x<-38:76
xts<-ts(x,start=c(2014,1),frequency = 12)
growth.rate_mod<-
function (x, lag = 1) 
{
  xts <- as.tis(xts)
  lx <- lag(xts, -lag)
  dx <- diff(xts, lag = lag)
  f.over.l <- as.vector(frequency(xts)/lag)
      100 * (xts/lx -1)
  }

growth.rate_mod(xts, lag = 1)
growth.rate_mod(xts, lag = 12)

如果这些是滞后1和滞后12的增长率

100 *（（x [t] / x [t-1]） - 1）这是滞后= 1 100 *（（x [t] / x [t-12]） - 1）这是滞后= 12

所以，我想做的年累计增长率是：

100 *（sum（x [t-i]到x [t] / sum（x [t- [i-12]到x [t-12]）） - 1）

其中， i =如果t = 3，它将是Jan到Mar之间的时间距离。它可以在1到12之间变化（Jan到Dic）

提前致谢！