get.hist.quote {tseries} | R Documentation |
Download historical financial data from a given data provider over the WWW.
get.hist.quote(instrument = "^gdax", start, end, quote = c("Open", "High", "Low", "Close"), provider = c("yahoo", "oanda"), method = NULL, origin = "1899-12-30", compression = "d", retclass = c("zoo", "its", "ts"), quiet = FALSE, drop = FALSE)
instrument |
a character string giving the name of the quote symbol to download. See the web page of the data provider for information about the available quote symbols. |
start |
an R object specifying the date of the start of the
period to download. This must be in a form which is recognized by
|
end |
an R object specifying the end of the download period, see above. Defaults to yesterday. |
quote |
a character string or vector indicating whether to
download opening, high, low, or closing quotes, or volume. For the
default provider, this can be specified as |
provider |
a character string with the name of the data
provider. Currently, |
method |
tool to be used for downloading the data. See
|
origin |
an R object specifying the origin of the Julian dates, see above. Defaults to 1899-12-30 (Popular spreadsheet programs internally also use Julian dates with this origin). |
compression |
Governs the granularity of the retrieved data;
|
retclass |
character specifying which class the return value
should have: can be either |
quiet |
logical. Should status messages (if any) be suppressed? |
drop |
logical. If |
A time series containing the data either as a "zoo"
series
(default), a "its"
series or "ts"
series. The
"zoo"
series is created with zoo
and has an
index of class "Date"
. For returning an "its"
series,
its
has to be available. "its"
series always have an index of class "POSIXct"
. If a
"ts"
series is returned, the index is in physical time, i.e.,
weekends, holidays, and missing days are filled with NA
s if not
available. The time scale is given in Julian dates (days since the
origin
).
A. Trapletti
zoo
,
its
,
ts
,
as.Date
,
as.POSIXct
,
download.file
;
http://quote.yahoo.com/,
http://www.oanda.com/
con <- url("http://quote.yahoo.com") if(!inherits(try(open(con), silent = TRUE), "try-error")) { close(con) x <- get.hist.quote(instrument = "^gspc", start = "1998-01-01", quote = "Close") plot(x) x <- get.hist.quote(instrument = "ibm", quote = c("Cl", "Vol")) plot(x, main = "International Business Machines Corp") spc <- get.hist.quote(instrument = "^gspc", start = "1998-01-01", quote = "Close") ibm <- get.hist.quote(instrument = "ibm", start = "1998-01-01", quote = "AdjClose") x <- merge(spc, ibm) plot(x, main = "IBM vs S&P 500") } con <- url("http://www.oanda.com") if(!inherits(try(open(con), silent = TRUE), "try-error")) { close(con) x <- get.hist.quote(instrument = "EUR/USD", provider = "oanda", start = Sys.Date() - 500) plot(x, main = "EUR/USD") }