Q1. Ford Motor Company for the period of 2014-01-01 - 2017-12-31 from Google

# Load packages
library(quantmod)

data <- getSymbols("F", from = "2014-01-01", to = "2017-12-31" , src = "google", auto.assign = FALSE)
plot(data)

Q2. US nonfarm payrolls (monthly seasonally adjusted) from FRED

data <- getSymbols("PAYEMS", from = "2005-12-31", to = "2016-08-31" , src = "FRED", auto.assign = FALSE)
plot(data)

Q3. Foreign exchange rate, Japanese yen per US dollar from Oanda.com (Hint: Oanda.com only reports data for the past 180 days)

data<- getSymbols("JPY/USD", src = "oanda", auto.assign = FALSE)
plot(data)

Q4. You are interested in studying stock price changes (without dividend payments) of three tech giants - Microsoft, Apple, and Amazon. Load three stocks; extract the Close column from each of the three stocks; and merge them into one object.

# Create a new environment
data_env <- new.env()
getSymbols(c("MSFT","AAPL", "AMZN"), env = data_env, auto.assign = TRUE)
## [1] "MSFT" "AAPL" "AMZN"
adjusted_list <- lapply(data_env, Cl)
adjusted <- do.call(merge, adjusted_list)
head(adjusted)
##            AAPL.Close AMZN.Close MSFT.Close
## 2007-01-03   11.97143      38.70      29.86
## 2007-01-04   12.23714      38.90      29.81
## 2007-01-05   12.15000      38.37      29.64
## 2007-01-08   12.21000      37.50      29.93
## 2007-01-09   13.22429      37.78      29.96
## 2007-01-10   13.85714      37.15      29.66