knitr::opts_chunk$set(echo = TRUE)
remotes::install_github("uva-bi-sdad/dc.synth.dmg")
library(dc.synth.dmg)
mydata <- get_data(state_abbrev = "VA", county_fips = "013") print(mydata)
bk_dmgs <- generate_block_dmgs(acs_data = mydata$acs_data_51013, bac_data = mydata$bac_data_51013) print(head(bk_dmgs[order(geoid)]))
set_acs_variables(list(my_total_population = "B01001_001", my_male_population = "B01001_002")) mydata <- get_data(state_abbrev = "VA", county_fips = "013") bk_dmgs <- generate_block_dmgs(acs_data = mydata$acs_data_51013, bac_data = mydata$bac_data_51013) print(head(bk_dmgs[order(geoid)]))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.