jkr216

library(tidyverse)
library(tidyquant)
library(timetk)
library(formattable)
library(scales)
library(fredr)
library(gt)

cpi_components_manual <- 
  tribble(

jkr216

library(tidyverse)
library(readxl)

url <- 
  "https://www.atlantafed.org/-/media/documents/datafiles/chcs/wage-growth-tracker/wage-growth-data.xlsx"
destfile <- "wage_growth_data.xlsx"
curl::curl_download(url, destfile)

### Import and visualize

jkr216

---
title: "Untitled"
output: html_document
---

```{r include = FALSE}
library(tidyverse)
library(tidyquant)
library(timetk)
library(readxl)

jkr216

library(tidyverse)
library(tidyquant)
library(timetk)
library(readxl)
library(plotly)
library(scales)
library(fredr)
library(broom)
library(treasuryTR)
# library(modeltime)

jkr216

library(tidyverse)
library(tidyquant)
library(timetk)
library(readxl)
library(plotly)
library(scales)
library(fredr)


ms_index_symbols_names <- 

jkr216

library(tidyverse)
library(tidyquant)
library(timetk)

'T5YIE' %>% 
  tq_get(get= "economic.data", from = "2003-01-01") %>% 
  mutate(Percent = price/100) %>% 
  summarise_by_time(
    .date_var = date, 
    .by = "month",

jkr216

```{r}
library(tidyverse)
library(tidyquant)
library(timetk)
library(readxl)
library(plotly)
library(scales)
library(formattable)
```

jkr216

```{r include = FALSE}
library(tidyverse)
library(tidyquant)
library(timetk)
library(readxl)
library(plotly)
library(scales)
library(formattable)
library(fredr)
library(broom)

jkr216

```{r}
library(tidyverse)
library(tidyquant)
library(timetk)
library(readxl)
library(plotly)
library(scales)
library(formattable)
library(fredr)
library(broom)

jkr216

library(tidyverse)
library(tidyquant)
library(timetk)
library(readxl)
library(plotly)
library(scales)
library(formattable)
library(fredr)
library(broom)