TITLE

Section 1

Each visualization or table should contain corresponding text describing the material.

You can see the code is folded by default. You can click on the + to expand the code. This enables me to keep the code in the document without it taking up too much space.

library(fredr)
library(tsibble)
library(tidyverse)

fredr_set_key("70919fe213e30e6afca54803aa407c43")

unrate = fredr(
  series_id = "UNRATENSA",
  observation_start = as.Date("2010-01-01"),
  observation_end = as.Date("2018-12-01")
)

unrate = unrate %>%
  select(date, value) %>%
  mutate(value = value/100) %>%
  mutate(date = yearmonth(date)) %>%
  as_tsibble(index = date)

unrate %>%
ggplot()+
geom_line(aes(date,value))+
xlab('Date')+
ylab('Unemployment Rate')+
labs(title = 'Unemployment Rate in the US')+
theme_bw()

Section 2

You can also create a subsection like so

Tab 1

You can put material in multiple tabs if you want.

This is material in tab 1.

Tab 2

This is material in tab 2.