3

Quantmod呼び出しを使用して、当日のyahooからOHLCVデータを取得できませんgetSymbols()。データはyahooに存在し、チャート作成プラットフォームで今日のOHLCVデータを確認することもできます。getQuote(..)回避策として、電話を使用してyahooから今日のEOD見積もりを取得しました。しかし、これをrbindを介してダウンロードしたシンボルデータに追加しようとすると、データオブジェクトにNULLが入力されます。

ダウンロードした過去のシンボルデータに今日の見積もりを追加する方法、または営業時間後に呼び出して今日を含むシンボルEOD(OHLCVデータ)を取得できるRAPIのいずれかに関する提案に感謝します。ありがとう。

library(quantmod)
library(blotter) 
library(PerformanceAnalytics)

getSymbols("SPY")
spy.quote = getQuote("SPY", what = yahooQuote.EOD)

> tail(SPY, n=3)
           SPY.Open SPY.High SPY.Low SPY.Close SPY.Volume SPY.Adjusted
2012-10-25   142.02   142.28  140.57    141.43  134457400       141.43
2012-10-26   141.30   141.84  140.39    141.35  146023500       141.35
2012-10-31   141.85   142.03  140.68    141.35  103341300       141.35

> spy.quote
             Trade Time   Open   High    Low  Close    Volume
SPY 2012-11-01 04:00:00 141.65 143.01 141.52 142.83 100990760

> SPY = rbind(SPY, spy.quote)
> tail(SPY, n=3)
          SPY.Open SPY.High SPY.Low SPY.Close SPY.Volume SPY.Adjusted
          NULL     NULL     NULL    NULL      NULL       NULL               
          NULL     NULL     NULL    NULL      NULL       NULL        
spy.quote NULL     NULL     NULL    NULL      NULL       NULL  
4

1 に答える 1

3

見積もりデータをからオブジェクトに変換し、調整価格の列を追加する必要がありdata.frameますxts。その後、できますrbind

getSymbols("SPY", src='yahoo', to='2012-10-31')
spy.quote = getQuote("SPY", what = yahooQuote.EOD)

# convert to xts
xts.quote <- xts(spy.quote[, -1], as.Date(spy.quote[, 1])) # use Date for indexClass
xts.quote$Adjusted <- xts.quote[, 'Close'] # add an Adjusted column

tail(rbind(SPY, xts.quote), 3)
           SPY.Open SPY.High SPY.Low SPY.Close SPY.Volume SPY.Adjusted
2012-10-26   141.30   141.84  140.39    141.35  146023500       141.35
2012-10-31   141.85   142.03  140.68    141.35  103341300       141.35
2012-11-01   141.65   143.01  141.52    142.83  100995568       142.83
于 2012-11-02T01:16:43.367 に答える