## Not run:
# library(survey)
#
# nhanes_data <- nhanes_load_data("EPH", "2011-2012", demographics = TRUE)
#
# # Compute the mean of triclosan using the svymean function
# nhanes_survey(svymean, nhanes_data, "URXTRS", "URDTRSLC", na.rm = TRUE)
#
# # Compute the variance using svyvar
# nhanes_survey(svyvar, nhanes_data, "URXTRS", "URDTRSLC", na.rm = TRUE)
#
# ## End(Not run)
Run the code above in your browser using DataLab