## Not run:
if (FALSE) {
library(DBI)
library(dplyr, warn.conflicts = FALSE)
library(RPostgres)
pg <- dbConnect(Postgres())
events <- tibble(permno = c(14593L, 10107L),
event_date = as.Date(c("2019-01-31", "2019-01-31")))
get_event_cum_rets(events, pg)
}
## End(Not run)
Run the code above in your browser using DataLab