tests/sim/20220301-sim/top-down/setup-marPacks.R

In jlivsey/Dvar: What the Package Does (One Line, Title Case)

# 1. Detailed Tract
marPack1 <- NULL

# 2. Detailed State
marPack2 <-
  setup_margins(trct_dtld = F,
                trct_hhgq = F,
                trct_vhcr = F,
                trct_agsx = F,
                cnty_dtld = F,
                cnty_hhgq = F,
                cnty_vhcr = F,
                cnty_agsx = F,
                stat_dtld = TRUE,
                stat_hhgq = F,
                stat_vhcr = F,
                stat_agsx = F)

# 3. Detailed County
marPack3 <-
  setup_margins(trct_dtld = F,
                trct_hhgq = F,
                trct_vhcr = F,
                trct_agsx = F,
                cnty_dtld = TRUE,
                cnty_hhgq = F,
                cnty_vhcr = F,
                cnty_agsx = F,
                stat_dtld = TRUE,
                stat_hhgq = F,
                stat_vhcr = F,
                stat_agsx = F)

# 4. State HH/GQ
marPack4 <-
  setup_margins(trct_dtld = F,
                trct_hhgq = F,
                trct_vhcr = F,
                trct_agsx = F,
                cnty_dtld = TRUE,
                cnty_hhgq = F,
                cnty_vhcr = F,
                cnty_agsx = F,
                stat_dtld = TRUE,
                stat_hhgq = TRUE,
                stat_vhcr = F,
                stat_agsx = F)

# 5. State votingAge × hisp × cenRace
marPack5 <-
  setup_margins(trct_dtld = F,
                trct_hhgq = F,
                trct_vhcr = F,
                trct_agsx = F,
                cnty_dtld = TRUE,
                cnty_hhgq = F,
                cnty_vhcr = F,
                cnty_agsx = F,
                stat_dtld = TRUE,
                stat_hhgq = TRUE,
                stat_vhcr = TRUE,
                stat_agsx = F)

# 6. State age × sex
marPack6 <-
  setup_margins(trct_dtld = F,
                trct_hhgq = F,
                trct_vhcr = F,
                trct_agsx = F,
                cnty_dtld = TRUE,
                cnty_hhgq = F,
                cnty_vhcr = F,
                cnty_agsx = F,
                stat_dtld = TRUE,
                stat_hhgq = TRUE,
                stat_vhcr = TRUE,
                stat_agsx = TRUE)

# 7. County HH/GQ
marPack7 <-
  setup_margins(trct_dtld = F,
                trct_hhgq = F,
                trct_vhcr = F,
                trct_agsx = F,
                cnty_dtld = TRUE,
                cnty_hhgq = TRUE,
                cnty_vhcr = F,
                cnty_agsx = F,
                stat_dtld = TRUE,
                stat_hhgq = TRUE,
                stat_vhcr = TRUE,
                stat_agsx = TRUE)

# 8. County votingAge × hisp × cenRace
marPack8 <-
  setup_margins(trct_dtld = F,
                trct_hhgq = F,
                trct_vhcr = F,
                trct_agsx = F,
                cnty_dtld = TRUE,
                cnty_hhgq = TRUE,
                cnty_vhcr = TRUE,
                cnty_agsx = F,
                stat_dtld = TRUE,
                stat_hhgq = TRUE,
                stat_vhcr = TRUE,
                stat_agsx = TRUE)

# 9. County age × sex
marPack9 <-
  setup_margins(trct_dtld = F,
                trct_hhgq = F,
                trct_vhcr = F,
                trct_agsx = F,
                cnty_dtld = TRUE,
                cnty_hhgq = TRUE,
                cnty_vhcr = TRUE,
                cnty_agsx = TRUE,
                stat_dtld = TRUE,
                stat_hhgq = TRUE,
                stat_vhcr = TRUE,
                stat_agsx = TRUE)

# 10. Tract HH/GQ
marPack10 <-
  setup_margins(trct_dtld = F,
                trct_hhgq = TRUE,
                trct_vhcr = F,
                trct_agsx = F,
                cnty_dtld = TRUE,
                cnty_hhgq = TRUE,
                cnty_vhcr = TRUE,
                cnty_agsx = TRUE,
                stat_dtld = TRUE,
                stat_hhgq = TRUE,
                stat_vhcr = TRUE,
                stat_agsx = TRUE)

# 11. Tract votingAge × hisp × cenRace
marPack11 <-
  setup_margins(trct_dtld = F,
                trct_hhgq = TRUE,
                trct_vhcr = TRUE,
                trct_agsx = F,
                cnty_dtld = TRUE,
                cnty_hhgq = TRUE,
                cnty_vhcr = TRUE,
                cnty_agsx = TRUE,
                stat_dtld = TRUE,
                stat_hhgq = TRUE,
                stat_vhcr = TRUE,
                stat_agsx = TRUE)

# 12. Tract age × sex
marPack12 <-
  setup_margins(trct_dtld = F,
                trct_hhgq = TRUE,
                trct_vhcr = TRUE,
                trct_agsx = TRUE,
                cnty_dtld = TRUE,
                cnty_hhgq = TRUE,
                cnty_vhcr = TRUE,
                cnty_agsx = TRUE,
                stat_dtld = TRUE,
                stat_hhgq = TRUE,
                stat_vhcr = TRUE,
                stat_agsx = TRUE)


# Save all marPacks
save(list =
       c("marPack1",
       "marPack2",
       "marPack3",
       "marPack4",
       "marPack5",
       "marPack6",
       "marPack7",
       "marPack8",
       "marPack9",
       "marPack10",
       "marPack11",
       "marPack12"),
     file = "marPacks-TD.RData")