Download Historical Finance Data

How to Download Historical Finance Data

> con <- url("https://finance.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 = "Adj")
+     require("zoo")
+     x <- merge(spc, ibm)
+     plot(x, main = "IBM vs S&P 500")
+ }

‘getSymbols’ currently uses auto.assign=TRUE by default, but will
use auto.assign=FALSE in 0.5-0. You will still be able to use
‘loadSymbols’ to automatically load data. getOption("getSymbols.env")
and getOption("getSymbols.auto.assign") will still be checked for
alternate defaults.

This message is shown once per session and may be disabled by setting
options("getSymbols.warning4.0"=FALSE). See ?getSymbols for details.

time series starts 1998-01-02
time series ends   2019-08-30
time series ends   2019-08-30
time series starts 1998-01-02
time series ends   2019-08-30
time series starts 1998-01-02
time series ends   2019-08-30