## Not run:
# dat <- nhanes_load_data("UHG_G", "2011-2012", demographics = TRUE)
#
# design <- nhanes_survey_design(dat, "WTSA2YR")
#
# svymean(~RIDAGEYR, design)
#
# svyglm(URXUHG ~ RIDAGEYR + RIAGENDR, design)
# ## End(Not run)
Run the code above in your browser using DataLab