ex_assess_db <- assess_db(test_years = c(2015, 2016))
save(ex_assess_db, file = file.path('data', 'assess_db_2015_2016.rda'))
clean_2015 <- fetch_assess_db(2015)
clean_2016 <- fetch_assess_db(2016)

agg_2015 <- aggregate_everything(clean_2015)
agg_2016 <- aggregate_everything(clean_2016)
save(clean_2015, file = file.path('data', 'clean_2015.rda'))
save(clean_2016, file = file.path('data', 'clean_2016.rda'))
save(agg_2015, file = file.path('data', 'agg_2015.rda'))
save(agg_2016, file = file.path('data', 'agg_2016.rda'))


almartin82/nyschooldata documentation built on May 10, 2019, 9:55 a.m.