Something went wrong. Try again.
[READ-ONLY] Mirror of https://github.com/just-cameron/joint-returns.
Something went wrong. Try again.
635 B · 26 lines
R
at main
1234567891011121314151617181920212223242526library(tidyverse)library(haven)
# Grab the ordering dataeao = read_sas("/home/cameron/Dropbox/dissertation/NSV_CalendarRotations_Data/Code_and_Data_for_Public_Use/threshold3_20200619.sas7bdat") %>% rename(GVKEY = gvkey)
id_table = read_csv("id_table.csv")
eao %>% filter(GVKEY %in% id_table$GVKEY) %>% group_by(GVKEY) %>% summarize(ever_pattern = max(PatternFirmQtr)) %>% group_by(ever_pattern) %>% summarize( n_firms = length(unique(GVKEY)) )
eao %>% group_by(GVKEY) %>% summarize(ever_pattern = max(PatternFirmQtr)) %>% group_by(ever_pattern) %>% summarize( n_firms = length(unique(GVKEY)) )#