tests/testthat/test_school_attainment_percentile.R

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

context("School Attainment Percentile")


data(ex_CombinedAssessmentResults)
data(ex_CombinedStudentsBySchool)
cdf<-ex_CombinedAssessmentResults %>%
  inner_join(ex_CombinedStudentsBySchool, by=c("StudentID",
                                               "TermName")) %>%
  rename(schoolname=SchoolName.x)

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_spring14 <-  cdf %>% filter(measurementscale %in%
                                  c("Reading", "Mathematics"),
                                termname %in% c("Spring 2013-2014"))

school_attainment<-school_attainment_percentile(cdf_spring14)

test_that("school_attainment_percentile fails gracefully", {

  expect_error(school_attainment_percentile(cdf %>%
                                              filter(measurementscale %in%
                                                       c("Reading", "Mathematics"))),
               "You must have exactly one term")
  expect_error(school_attainment_percentile(cdf),
               "Your data contains subjects besides Reading and Mathematics.")

})

test_that("school_attainment_percentile works as advertised", {

  expect_equal(length(school_attainment), 3)
  expect_equal(names(school_attainment), c("student_level", "grade_level", "school_level"))
  expect_equal(nrow(school_attainment$school_level), 8)
  expect_equal(round(mean(school_attainment$school_level$attainment_pctl),5),
               0.555)
})