r - tseries: get.hist.quote() 给出错误的结果

Question

根据以下代码，历史报价ROG.VX在所选时间段内是不变的。但是，在http://finance.yahoo.com/q/hp?s=ROG.VX&a=08&b=09&c=2011&d=02&e=28&f=2012&g=d&z=66&y=132可以检查它们不是（参见截屏）。怎么了？

require(tseries)
hq <- get.hist.quote(instrument="ROG.VX", start="2011-09-09", end="2012-03-28",
                     quote="Close", provider="yahoo", drop=TRUE)
plot(hq) # => constant
stopifnot(hq==138.3) # => constant 138.3

Answer 1

这是雅虎问题。

如果我们查看get.hist.quote()返回的信息，我们可以看到它通过 http 要求 yahoo 提供一个 csv。我们可以轻松地将相同的 URL 粘贴到浏览器中以下载 csv 并确认这些是 R 获得的数字。更改日期后，我们可以看到 ROG.VX 时间序列中的数据明显丢失，但比较时间序列 (IBM) 中没有：

> rog <- get.hist.quote(instrument="ROG.VX", start="2010-06-10", end="2012-03-28",
+                      provider="yahoo", drop=TRUE)
trying URL 'http://chart.yahoo.com/table.csv?s=ROG.VX&a=5&b=10&c=2010&d=2&e=28&f=2012&g=d&q=q&y=0&z=ROG.VX&x=.csv'
Content type 'text/csv' length unknown
opened URL
downloaded 6439 bytes

> ibm <- get.hist.quote(instrument="ibm", start="2010-06-10", end="2012-03-28",
+                      provider="yahoo", drop=TRUE)
trying URL 'http://chart.yahoo.com/table.csv?s=ibm&a=5&b=10&c=2010&d=2&e=28&f=2012&g=d&q=q&y=0&z=ibm&x=.csv'
Content type 'text/csv' length unknown
opened URL
downloaded 24 Kb

> test<-merge(ibm,rog)
> plot(test)