R Notebook

library(tidyverse)
library(survey)
source("table-builders.R")

acs_data_year = 2024

pus = readRDS(paste0("../../Data/ACS_MEDICAID",acs_data_year,".rds"))

Analysis 1

Source

ACS 2024

Outome

Medicaid, Medical Assistance, or any kind of government-assistance plan for those with low incomes or a disability

Domain of analysis

Children living in the community, with and without disability, who receive medicaid

t1 <- 
  tdev3(data = pus,
       measure = c("POP","MEDICAID"),
       filters = c("POP","AGEP"),
       demographic = "POP == 1 &   
                      AGEP <= 17", 
       strata = "DIS_text",
       strataLevels = c("Yes","No"))

#[[1]]
#[[1]][[1]]

# Population without Disabilities

#[[1]][[1]]

# Population with Disabilities

#[[2]]
#[[2]][[1]]

t1

[[1]]
[[1]][[1]]

[[1]][[2]]

[[2]]
[[2]][[1]]

[[2]][[2]]

NANA

Analysis 2

Source

ACS 2024

Outome

Medicaid, Medical Assistance, or any kind of government-assistance plan for those with low incomes or a disability

Domain of analysis

Adults 18-64 living in the community, with and without disability, who receive medicaid

t2 <- 
  tdev3(data = pus,
       measure = c("POP","MEDICAID"),
       filters = c("POP","AGEP"),
       demographic = "POP == 1 &   
                      AGEP >= 18 &
                      AGEP <= 64", 
       strata = "DIS_text",
       strataLevels = c("Yes","No"))


#[[1]]
#[[1]][[1]]

# Population without Disabilities

#[[1]][[1]]

# Population with Disabilities

#[[2]]
#[[2]][[1]]
t2

[[1]]
[[1]][[1]]

[[1]][[2]]

[[2]]
[[2]][[1]]

[[2]][[2]]

NANA