benzipperer

sysuse auto, clear

* separately add required estimate to each model and store models
foreach yvar in mpg price length {
    foreach xvar in weight foreign {
        reg `yvar' `xvar'
        lincomestadd `xvar', statname(`xvar'_)
        eststo `yvar'_`xvar'
    }
}

benzipperer

library(tidyverse)
library(viridis)


cbo_elast_2021 <- -0.48
cbo_elast_2019 <- -0.38
dube_elast_2019 <- -0.04

emp_effects <- tribble(
  ~source, ~emp,

benzipperer

library(tidyverse)
library(haven)
library(data.table)


clean_qcew_annual <- function(x) {
  # QCEW data from https://www.bls.gov/cew/downloadable-data-files.htm
  fread(cmd = paste0("unzip -p ", x, "_annual_singlefile.zip")) %>% 
    # keep only county-level private sector 
    filter(agglvl_code == 71 & own_code == 5) %>% 

benzipperer

summarize_groups <- function(.data, .groups, ...) {
  dots <- enquos(...)
  
  map_dfr(.groups, ~ summarize_onegroup(.data, all_of(.x), !!!dots)) %>%
    relocate(name, value)
}

summarize_onegroup <- function(.data, .group, ...) {
  data <- .data %>% 
    rename(value = {{ .group }}) %>% 

benzipperer

library(tidyverse)

mydata <- mtcars

groups <- c("cyl", "gear", "carb")

group_summarize <- function(x) {
  mydata %>% 
    rename(group_value = {{ x }}) %>% 
    group_by(group_value) %>% 

benzipperer

benzipperer

library(tidyverse)
library(vroom)

# sector names
sector_names <- read_csv("https://raw.githubusercontent.com/Economic/ui_state_detailed/master/output/state_ui_industry_recoded.csv") %>% 
  group_by(sector, sectorname) %>% 
  tally() %>% 
  select(sector, sector_name = sectorname)

# Read in 2019 March CPS

benzipperer

clear all 
set more off

* download CES data, if new
!wget -N https://download.bls.gov/pub/time.series/ce/ce.data.0.AllCESSeries
!wget -N https://download.bls.gov/pub/time.series/ce/ce.series
!wget -N https://download.bls.gov/pub/time.series/ce/ce.industry

* identify 3-digit industries
insheet using ce.industry, clear tab

benzipperer

We use rclone to mount OneDrive as a network share in the directory ~/OneDrive.

First, log in as the user who needs OneDrive, and create the directory:

mkdir ~/OneDrive

Then configure rclone:

rclone config

benzipperer

marchcps %>% 
  # adult/af universe for health insurance q
  filter(prpertyp == 2 | prpertyp == 3) %>%
  # workers last year with industry info
  filter(industry > 0) %>% 
  # keep only private and public emp (drop self employed & without pay)
  filter(clwk == 1 | clwk == 2) %>% 
  # convert 2012 Census industry codes to NAICS sectors
  # using codebook https://www2.census.gov/programs-surveys/demo/guidance/industry-occupation/census-2012-final-code-list.xls
  mutate(