tests/testthat/test_state_pass.R

context('state pass functions')

test_that('new york state pass functions work', {
  
  ny_ex <- state_pass_prob(mapviz, 'NY')
  expect_equal(sum(ny_ex$predicted_pass, na.rm = TRUE), 819L)
})
almartin82/mapvizieR documentation built on May 10, 2018, 11:59 p.m.