how to prepare structure for VAR analisys

Prepare data. each data should be XTS class.

> class(RRSFS)
[1] "xts" "zoo"

merge関数を使ってXTS classのデータを次々結合していく。

> v_RCPG_1992_2016 <- merge(RRSFS["1992::2016-03-01"],UNDCONTSA["1992::2016-03-01"])
> v_RCPG_1992_2016 <- merge(v_RCPG_1992_2016,PAYEMS["1992::2016-03-01"])
> v_RCPG_1992_2016 <- merge(v_RCPG_1992_2016,GDP_XTS["1992::2016-03-01"])
> colnames(v_RCPG_1992_2016)
[1] "RRSFS"                       "UNDCONTSA"                   "PAYEMS"                     
[4] "GDP_XTS..1992..2016.03.01.."
> tail(v_RCPG_1992_2016)
            RRSFS UNDCONTSA PAYEMS GDP_XTS..1992..2016.03.01..
2015-10-01 187883       943 142595                    16470.57
2015-11-01 188187       964 142875                    16477.96
2015-12-01 189231       976 143146                    16485.35
2016-01-01 188168       976 143314                    16492.75
2016-02-01 189012       987 143547                    16525.74
2016-03-01 188220       994 143755                    16558.72

四列目の列名が見にくいので変更する。

> names(v_RCPG_1992_2016)[4] <- c("GDP")
> head(v_RCPG_1992_2016)
            RRSFS UNDCONTSA PAYEMS      GDP
1992-01-01 118643       639 108377 9122.950
1992-02-01 118514       630 108314 9156.482
1992-03-01 117719       656 108368 9190.013
1992-04-01 118192       650 108527 9223.545
1992-05-01 118552       650 108653 9253.433

1992-06-01 118557       644 108721 9283.320