Exercise on Section 1.3

Import data

library(quantmod)
data.IBN <- getSymbols("IBN", from = "2010-12-31", to = "2017-07-01", auto.assign = FALSE)

data.IBN[c(1:3, nrow(data.IBN)), ]
##            IBN.Open IBN.High IBN.Low IBN.Close IBN.Volume IBN.Adjusted
## 2010-12-31   10.279   10.367  10.251  9.207273    3106400     8.233915
## 2011-01-03   10.361   10.473  10.316  9.290909    4513300     8.308709
## 2011-01-04   10.096   10.096   9.773  8.783636   16261300     7.855064
## 2017-06-30    8.920    8.990   8.900  8.970000    3670600     8.970000
data.IBN[3, "IBN.High"]
##            IBN.High
## 2011-01-04   10.096

# Step 6: Rename variables
names(data.IBN)
## [1] "IBN.Open"     "IBN.High"     "IBN.Low"      "IBN.Close"   
## [5] "IBN.Volume"   "IBN.Adjusted"
names(data.IBN) <- paste(c("Open", "High", "Low", 
                            "Close", "Volume", "Adjusted"))

1.3.1 Plotting the data

plot(data.IBN$Close)