tests/testthat/test_sqrp_levels.R

In kippchicago/sqrpr: Chicago Public Schools School Quality Rating Policy metric calculations

context("SQRP levels")

#
data(ex_CombinedAssessmentResults)
data(ex_CombinedStudentsBySchool)
cdf<-ex_CombinedAssessmentResults %>%
  inner_join(ex_CombinedStudentsBySchool, by=c("StudentID", 
                                               "TermName"))
names(cdf)<-tolower(names(cdf))

cdf_fall <- cdf %>% filter(grepl("Fall", termname))

#cdf_fall %>% mutate(equated_rit=cps_equate(testritscore, measurementscale, grade))

cdf_fall_filtered <- cdf_fall %>% filter(measurementscale %in% 
                                           c("Reading", "Mathematics"))

cdf_fall_filtered_equate<-cdf_fall_filtered %>%
  mutate(equated_rit=cps_equate(testritscore, 
                                measurementscale, 
                                grade
                           )
         )


test_that("get_sqrp_level calculations returms correct values.", {
  expect_equal(as.character(get_sqrp_level(1)), "3")
  expect_equal(as.character(get_sqrp_level(2)), "2")
  expect_equal(as.character(get_sqrp_level(3)), "2+")
  expect_equal(as.character(get_sqrp_level(3.5)), "1")
  expect_equal(as.character(get_sqrp_level(4)), "1+")
})

test_that("get_sqrp_level calculations returms correct values.", {
  recalced_points<-calc_sqrp_points(school_growth_pctl_reading=2,
                                    school_growth_pctl_mathematics=3,
                                    school_growth_pctl_aa_reading=2,
                                    school_growth_pctl_hisp_reading=NULL,
                                    school_growth_pctl_iep_reading=NULL,
                                    school_growth_pctl_ell_reading=NULL,
                                    school_growth_pctl_aa_mathematics=4,
                                    school_growth_pctl_hisp_mathematics=NULL,
                                    school_growth_pctl_iep_mathematics=NULL,
                                    school_growth_pctl_ell_mathematics=NULL,
                                    pct_exceed_typical_growth=3,
                                    school_attaninment_pct_2_reading=2,
                                    school_attaninment_pct_2_mathematics=3,
                                    school_attaninment_pct_38_reading=2,
                                    school_attaninment_pct_38_mathematics=3,
                                    pct_sufficient_access_progress=NULL,
                                    ada=3,
                                    mvms_5essentials=4,
                                    dqi=5)
  
  expect_equal(as.numeric(recalced_points), 2.9)
  
  not_enough_info<-function() {calc_sqrp_points(school_growth_pctl_reading=NULL,
                                    school_growth_pctl_mathematics=3,
                                    school_growth_pctl_aa_reading=2,
                                    school_growth_pctl_hisp_reading=NULL,
                                    school_growth_pctl_iep_reading=NULL,
                                    school_growth_pctl_ell_reading=NULL,
                                    school_growth_pctl_aa_mathematics=4,
                                    school_growth_pctl_hisp_mathematics=NULL,
                                    school_growth_pctl_iep_mathematics=NULL,
                                    school_growth_pctl_ell_mathematics=NULL,
                                    pct_exceed_typical_growth=3,
                                    school_attaninment_pct_2_reading=2,
                                    school_attaninment_pct_2_mathematics=3,
                                    school_attaninment_pct_38_reading=2,
                                    school_attaninment_pct_38_mathematics=3,
                                    pct_sufficient_access_progress=NULL,
                                    ada=3,
                                    mvms_5essentials=4,
                                    dqi=5)}
  
  expect_message(not_enough_info(), "school_growth_pctl_reading")
  
})

test_that("calc_ada_points does so.", {
  expect_equal(calc_ada_points(.91),1)
  expect_equal(calc_ada_points(.92),2)
  expect_equal(calc_ada_points(.94),3)
  expect_equal(calc_ada_points(.95),4)
  expect_equal(calc_ada_points(.96),5)  
})


test_that("calc_growth_points does so.", {
  expect_equal(calc_growth_points(.09),1)
  expect_equal(calc_growth_points(.1),2)
  expect_equal(calc_growth_points(.4),3)
  expect_equal(calc_growth_points(.7),4)
  expect_equal(calc_growth_points(.9),5)  
})

test_that("calc_priority_growth_points does so.", {
  expect_equal(calc_priority_growth_points(.09),1)
  expect_equal(calc_priority_growth_points(.1),2)
  expect_equal(calc_priority_growth_points(.3),3)
  expect_equal(calc_priority_growth_points(.5),4)
  expect_equal(calc_priority_growth_points(.7),5)  
})


test_that("calc_me_growth_norms_points does so.", {
  expect_equal(calc_me_growth_norms_points(.39),1)
  expect_equal(calc_me_growth_norms_points(.4),2)
  expect_equal(calc_me_growth_norms_points(.5),3)
  expect_equal(calc_me_growth_norms_points(.6),4)
  expect_equal(calc_me_growth_norms_points(.7),5)  
})

test_that("calc_attainment_points does so.", {
  expect_equal(calc_attainment_points(.09),1)
  expect_equal(calc_attainment_points(.1),2)
  expect_equal(calc_attainment_points(.4),3)
  expect_equal(calc_attainment_points(.7),4)
  expect_equal(calc_attainment_points(.9),5)  
})

test_that("calc_access_points does so.", {
  expect_equal(calc_access_points(.24),1)
  expect_equal(calc_access_points(.25),2)
  expect_equal(calc_access_points(.35),3)
  expect_equal(calc_access_points(.45),4)
  expect_equal(calc_access_points(.55),5)  
})

test_that("calc_5essentials_points does so.", {
  expect_equal(calc_5essentials_points("NYO"),1)
  expect_equal(calc_5essentials_points("PO"),2)
  expect_equal(calc_5essentials_points("MO"),3)
  expect_equal(calc_5essentials_points("O"),4)
  expect_equal(calc_5essentials_points("WO"),5)  
})


test_that("calc_dqi_points does so.", {
  expect_equal(calc_dqi_points(.75),1)
  expect_equal(calc_dqi_points(.85),2)
  expect_equal(calc_dqi_points(.90),3)
  expect_equal(calc_dqi_points(.95),4)
  expect_equal(calc_dqi_points(.99),5)  
})


test_that("calc_dqi_points does so.", {
  expect_equal(calc_dqi_points(.75),1)
  expect_equal(calc_dqi_points(.85),2)
  expect_equal(calc_dqi_points(.90),3)
  expect_equal(calc_dqi_points(.95),4)
  expect_equal(calc_dqi_points(.99),5)  
})