tests/testthat/test_cohort_growth.R

context('cohort_growth')

ex <- cohort_growth(assess_15, assess_16)

test_that('cohort_growth returns data frame', {
  expect_is(ex, 'data.frame')
})


test_that('cohort_growth correctly calculates growth data', {
  expect_equal(nrow(ex), 565744)
})
almartin82/nyschooldata documentation built on May 10, 2019, 9:55 a.m.