library(tidyverse)

library(tidyverse)
dat <- rio::import("https://github.com/marctrussler/IIS-Data/raw/refs/heads/main/ANESPanelMargolis.Rds", trust=T)
head(dat)

dat |> 
  group_by(pid04) |> 
  summarize(weighted.mean(attend04, w=WT04, na.rm=T))

dat |> 
  group_by(pid02) |> 
  summarise(mean(attend02,na.rm=T))

dat |> 
  group_by(pid04) |> 
  summarise(mean(attend04,na.rm=T))


dat |> 
  mutate(delta.attend = attend04 - attend02) |> 
  group_by(pid02) |> 
  summarise(difference = weighted.mean(delta.attend,na.rm=T, w=WT04))

dat |> 
  mutate(delta.attend = attend04 - attend02) |> 
  group_by(pid02) |> 
  summarise(difference = weighted.mean(delta.attend,na.rm=T, w=WT04)) |> 
  pivot_wider(names_from=pid02, values_from = difference) |> 
  summarise(Dem-Rep)

m <- lm(attend04 ~ attend02, data=dat, w=dat$WT04)
summary(m)

m <- lm(attend04 ~ attend02 + pid02, data=dat, w=dat$WT04)
summary(m)

kid <- dat |> filter(kids=="At Home")
kid$WT04 <- as.numeric(kid$WT04)
m <- lm(attend04 ~ attend02 + pid02, data=kid, w=kid$WT04)
summary(m)