erikgahner

library("tidyverse")
library("rvest")

wikileaks_html <- read_html("https://911.wikileaks.org/files/index.html")

wikileaks_urls <- wikileaks_html |> 
  html_nodes("a") |> 
  html_attr("href") |> 
  as_tibble() |> 
  filter(str_detect(value, ".txt")) |> 

erikgahner

df_rdd %>% 
  filter(year >= 1945, living_day_imp_post > 0) %>% 
  mutate(won = ifelse(margin_pct_1 >= 0, 1, 0),
         margin = margin_pct_1) %>% 
  mutate(id = paste0(death_date_imp, "-", cand_last)) %>% 
  group_by(id) %>% 
  mutate(election = seq_along(id)) %>% 
  ungroup() %>% 
  filter(abs(margin) < 5, election == 1) %>% 
  with(lm(living_day_imp_post ~ won + margin + living_day_imp_pre)) %>%