> wdir <- "C:/Users/vlado/docs/papers/2024/Trajectories/green"
> setwd(wdir)
> # install.packages('haven')
> library(haven)
> PB <- read_dta("PartnerBirthbio.dta")
> dim(PB)
[1] 1866 281
> names(PB)
[1] "id" "weight40" "sex" "doby_gen" "dob"
[6] "ethni" "migstatus" "yeduc" "sat1i4" "sat5"
[11] "sat6" "highschool" "church" "biosib" "stepsib"
[16] "east" "famstructure18" "state1" "state2" "state3"
[21] "state4" "state5" "state6" "state7" "state8"
...
[276] "state259" "state260" "state261" "state262" "state263"
[281] "state264"
