inst/doc/Employment_and_Unemployment.R

In blscrapeR: An API Wrapper for the Bureau of Labor Statistics (BLS)

## ----setup, include=TRUE------------------------------------------------------

## ----eval=FALSE---------------------------------------------------------------
#  # U3 Unemployment vs. U6 Unemployment
#  # More information on unemployment rates here:
#  # http://www.bls.gov/news.release/empsit.t15.htm
#  library(blscrapeR)
#  library(tidyverse)
#  df <- bls_api(c("LNS13327709", "LNS14000000"), startyear = 2000, endyear = 2015) %>%
#      spread(seriesID, value) %>%
#      dateCast()
#  
#  tail(df)

## ----eval=FALSE---------------------------------------------------------------
#  library(blscrapeR)
#  library(tidyverse)
#  df <- bls_api(c("LEU0254530800", "LEU0254530600"), startyear = 2000, endyear = 2015) %>%
#      spread(seriesID, value) %>%
#      dateCast()
#  
#  tail(df)
#  

## ----eval=FALSE---------------------------------------------------------------
#  library(blscrapeR)
#  library(tidyverse)
#  
#  df <- bls_api(c("TUU10101AA01014236", "TUU10101AA01013951"), startyear = 2005, endyear = 2015) %>%
#      spread(seriesID, value) %>%
#      dateCast()
#  
#  tail(df)

## ----eval=FALSE---------------------------------------------------------------
#  library(blscrapeR)
#  library(tidyverse)
#  df <- bls_api(c("SMS01000000000000001", "SMS01000006500000001"),
#                  startyear = 2006, endyear = 2016)
#  
#  df <- spread(df, seriesID, value)
#  df$penetration_rt <- df$SMS01000006500000001 / df$SMS01000000000000001
#  tail(df)

## ----eval=FALSE---------------------------------------------------------------
#  library(blscrapeR)
#  library(tidyverse)
#  
#  df <- bls_api(c("ENU0608510010", "ENU1209510010"), startyear = 2005, endyear = 2015) %>%
#      spread(seriesID, value) %>%
#      dateCast()
#  
#  tail(df)
#