Using the given code, answer the questions below.

library(tidyquant) 
library(tidyverse) 

stocks <- tq_get("USD/EUR", get ="exchange.rates", from = "2016-01-01")
stocks
## # A tibble: 180 x 2
##    date       exchange.rate
##    <date>             <dbl>
##  1 2018-08-10         0.873
##  2 2018-08-11         0.876
##  3 2018-08-12         0.877
##  4 2018-08-13         0.878
##  5 2018-08-14         0.879
##  6 2018-08-15         0.882
##  7 2018-08-16         0.879
##  8 2018-08-17         0.877
##  9 2018-08-18         0.874
## 10 2018-08-19         0.874
## # ... with 170 more rows

stocks %>%
  ggplot(aes(x = date, y = exchange.rate)) +
  geom_line()

Q1. How many columns (variables) are there?

There are 7 colums

Q2. What are the variables?

Apple Stock

Q3. How many rows are there?

There are 768 rows

Q4. What does the row represent?

Dates of Apple Stock

Q5. Get Microsoft stock prices, instead of Apple.

Go to yahoo finance and find the abberviation for Microsoft ## Q6. Get the stock prices from 2017-01-15 to 2018-12-15.

Q7. Get economic data, the unemployment rate for the U.S., instead of stock prices.

Go to FRED to get the seasonal unemployment rate

Q8. Get exchange rate between the U.S. dollar and the euro, instead of stock prices.

Go to Oanda for the exchange rate