...在整个季度中,样条曲线(最佳)或线性插值(OK)或只是重复值(精细)。问题是我不知道如何将返回的数据类型转换为getFin()
可用viewFin()
的timeSeries
类型。这是我的代码:
getFin('F')
x <- viewFin(F.f, "BS", period="Q")["Total Common Shares Outstanding",]*1000
我想要的输出是
> x
GMT x.ts
2011-09-01 3816000
2011-08-01 3816000
2011-07-01 3816000
2011-06-01 3815000
2011-05-01 3815000
2011-04-01 3815000
2011-03-01 3813000
2011-02-01 3813000
2011-01-01 3813000
2010-12-01 3778000
2010-11-01 3778000
2010-10-01 3778000
2010-09-01 3484000
但是,这里有一些实际输出:
> x
2011-09-30 2011-06-30 2011-03-31 2010-12-31 2010-09-30
3816000 3815000 3813000 3778000 3484000
> str(x)
Named num [1:5] 3816000 3815000 3813000 3778000 3484000
- attr(*, "names")= chr [1:5] "2011-09-30" "2011-06-30" "2011-03-31" "2010-12-31" ...
看起来 x 对象是某种奇怪的反向格式,其中键是数值,值是日期的字符串。当我尝试提取日期或数字组件时,我无法隔离数字部分以生成时间序列对象。
理想情况下,为了达到我想要的输出,我可以说
mydates <- timeSequence(from = "2011-01-01", to=Sys.Date(), by = "month")
series <- timeSeries(x$data, mydates)
但我似乎无法提取数字数据部分。
更新
getFin('F')
x <- viewFin(F.f, "BS", period="Q")["Total Common Shares Outstanding",]*1000
zoox = zoo(x, order.by=as.Date(names(x)))
x2 <- na.spline(merge(zoox, foo=zoo(NA, order.by=seq(start(zoox), end(zoox), "month")))[, 1])
但是,我的输出稍微弄乱了日期并弄乱了插值:
>x2
2010-09-30 2010-10-30 2010-11-30 2010-12-30 2010-12-31 2011-01-30 2011-03-02
3484000 3623591 3720509 3776671 3778000 3804738 3813071
2011-03-30 2011-03-31 2011-04-30 2011-05-30 2011-06-30 2011-07-30 2011-08-30
3813025 3813000 3813100 3814116 3815000 3814976 3814884
2011-09-30
3816000
如您所见,我有 12-30 和 12-31,2011 年 3 月的 3 个值,但没有 2 月等。如何解决这个问题?