if (FALSE) {
wrds <- wrds_connect()
ccm <- link_ccm(wrds)
# Join with Compustat data
compustat <- get_compustat(wrds)
compustat |>
dplyr::inner_join(ccm, by = dplyr::join_by(gvkey)) |>
dplyr::filter(datadate >= linkdt, datadate <= linkenddt)
wrds_disconnect(wrds)
}
Run the code above in your browser using DataLab