if (FALSE) {
wrds <- wrds_connect()
ibes_link <- link_ibes_crsp(wrds)
# Join with IBES data on ticker and date range
ibes_data |>
dplyr::inner_join(ibes_link, by = dplyr::join_by(ticker)) |>
dplyr::filter(date >= sdate, date <= edate)
wrds_disconnect(wrds)
}
Run the code above in your browser using DataLab