计算时间序列多年平均年增长率的函数

Question

我正在尝试编写一个函数来计算多年平均年增长率。我有两个输入：xts_in 是计算增长的系列的名称，lag_in 是计算增长的时期的长度。输出 ser_out 将包含 ser_in 的平均年增长率。

到目前为止我已经尝试过：

pchmy <- function(ser_in, lag_in = 1){
lag_in <- lag_in + 1
ser_out <- (((ser_in/lag.xts(ser_in))^(1/lag_in))-1)*100
    return(ser_out)
}

我不确定公式是否正确，但我正在尝试从另一种编程语言翻译代码。任何帮助将不胜感激。