API to create data for any count on child care deserts in Texas
root <- "F:/Early_Childhood/04_Tarrant_County"
child_care_db(root = root,
naeyc_pth1 = naeyc_pth1,
naeyc_pth2 = naeyc_pth2)
pth <- "F:/Early_Childhood/04_Tarrant_County/data/processed/child_care_env.RData"
load_env(pth)
pth <- "F:/Early_Childhood/04_Tarrant_County/data/processed/child_care_env.RData"
load_env(pth)
county <- c("48201", "48439")
calc.distance_decile_table(df = DF_ACF, county_list = county)
````
```{r}
pth <- "F:/Early_Childhood/04_Tarrant_County/data/processed/child_care_env.RData"
load_env(pth)
county <- c("48201", "48439")
calc.distance_density_plot(df = DF_ACF, county_list = county)
Note: The tract_radius (in miles) should be informed by analysis using the above functions.
pth <- "F:/Early_Childhood/04_Tarrant_County/data/processed/child_care_env.RData"
load_env(pth)
config <- list(`48439` = list(tract_radius = 3),
`48201` = list(tract_radius = 3))
calc.subsidy_capacity(config = config,
xwalk_tracts = XWALK_TRACTS,
adj_tracts = ADJ_TRACTS,
df_hhsc_ccl = DF_HHSC_CCL,
df_acf = DF_ACF)
calc.subsidy_capacity(config = config,
xwalk_tracts = XWALK_TRACTS,
adj_tracts = ADJ_TRACTS,
df_hhsc_ccl = DF_HHSC_CCL,
df_acf = DF_ACF,
grouping_vars = "center_prvdr")
Note: The tract_radius (in miles) and capacity estimates should be informed by analysis using the above functions.
pth <- "F:/Early_Childhood/04_Tarrant_County/data/processed/child_care_env.RData"
config <- list(`48439` = list(tract_radius = 3,
home_prvdr_non_sub_capacity = .85,
center_prvdr_non_sub_capacity = .85,
home_prvdr_sub_capacity = .75,
center_prvdr_sub_capacity = .65),
`48201` = list(tract_radius = 3,
home_prvdr_non_sub_capacity = .85,
center_prvdr_non_sub_capacity = .85,
home_prvdr_sub_capacity = .84,
center_prvdr_sub_capacity = .78))
save_subset_child_care_db(pth = pth,
config = config)
Note: The tract_radius (in miles) and capacity estimates should be informed by analysis using the above functions.
pth <- "F:/Early_Childhood/04_Tarrant_County/data/processed/child_care_env.RData"
config <- list(`48439` = list(tract_radius = 3),
`48201` = list(tract_radius = 3))
save_subset_child_care_db_03(pth = pth,
config = config)
git clone https://github.com/Texas-Policy-Lab/texas_child_care_deserts.git
install.packages("renv")
renv::restore()
to create the local R-environmentgit checkout -b features/TCCCD-10
or whatever JIRA ticket number you've assigned to yourselfgit add file_name
and then type `git commit -m "commit message"git push
devtools::load_all()
child_care_db
functionroot <- "F:/Early_Childhood/04_Tarrant_County"
child_care_db(root = root)
devtools::document()
devtools::test()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.