成長率の計算（改訂版）

以下の記事の続編：

成長率の計算 - ハリ・セルダンになりたくて（はてダから移行中）

少し改訂版を作ったので記録のために以下に（前期比・前年同期比も計算できるように）。

growthRate <- function(tsData, lagLen=1, percent=FALSE)
{
  numSize <- length(tsData)
  seque <- seq(1:(numSize-lagLen))
  if(isTRUE(percent)){
    tsGrowth <- (diff(tsData, lag=lagLen)/tsData[seque]) * 100
  } else {
    tsGrowth <- (diff(tsData, lag=lagLen)/tsData[seque]) 
  }
  return(tsGrowth)
}