context("mapvizier_summary tests")
ex <- summary(mapviz$growth_df)
test_that("summary works as expected on growth df", {
expect_equal(ex$end_pct_75th_pctl %>% sum(na.rm = TRUE), 37.49)
expect_equal(nrow(ex), 149)
expect_equal(sum(ex$cgp, na.rm = TRUE), 7344.26)
ex2 <- summary(mapviz$growth_df, digits = 3)
expect_equal(ex2$end_pct_75th_pctl %>% sum(na.rm = TRUE), 37.462)
})
test_that("cohort/grade status percentile works", {
expect_equal(sum(ex$start_cohort_status_npr, na.rm = TRUE), 9093)
})
ex2 <- summary(mapviz)
test_that("new summary method works as expected", {
expect_is(ex2, 'mapvizieR_summary')
expect_is(ex2$growth_summary, 'mapvizieR_growth_summary')
expect_is(ex2$cdf_summary, 'mapvizieR_cdf_summary')
expect_equal(sum(ex2$cdf_summary$mean_testritscore), 31195.44, tolerance = .01)
})
ex3 <- summary(mapviz$cdf)
test_that("summary method on cdf works as expected", {
expect_equal(
names(ex3), c("measurementscale", "map_year_academic", "fallwinterspring",
"termname", "schoolname", "grade", "grade_level_season",
"mean_testritscore", "mean_percentile", "n_students",
"cohort_status_npr")
)
expect_is(ex3, 'mapvizieR_cdf_summary')
})
test_that("growth summary method with custom group_by", {
ex_growth <- roster_to_growth_df(
target_df = mapviz$growth_df,
mapvizieR_obj = mapviz,
roster_cols = 'studentgender'
)
ex_growth <- ex_growth %>%
dplyr::group_by(studentgender)
custom_group_sum <- summary(ex_growth)
expect_is(custom_group_sum, 'mapvizieR_growth_summary')
})
test_that("cdf summary method with custom group_by", {
ex_cdf <- mapviz$cdf %>%
dplyr::group_by(map_year_academic, fallwinterspring)
custom_cdf_sum <- summary(ex_cdf)
expect_is(custom_cdf_sum, 'mapvizieR_cdf_summary')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.