> pmi_global <- as.xts(c(50.3,50.1,50.4, 47.1,47.3,39.8),seq(as.Date("2019-11-01"),as.Date("2020-04-01"),by='months'))
> pmi_global
[,1]
2019-11-01 50.3
2019-12-01 50.1
2020-01-01 50.4
2020-02-01 47.1
2020-03-01 47.3
2020-04-01 39.8
> pmi_global <- append(pmi_global,as.xts(c(47.9,50.3,51.8,52.3),seq(as.Date("2020-06-01"),as.Date("2020-09-01"),by='months')))
> pmi_global
[,1]
2019-11-01 50.3
2019-12-01 50.1
2020-01-01 50.4
2020-02-01 47.1
2020-03-01 47.3
2020-04-01 39.6
2020-05-01 42.4
2020-06-01 47.9
2020-07-01 50.3
2020-08-01 51.8
2020-09-01 52.3
0 件のコメント:
コメントを投稿