tests/testthat/test-dimensions-missing.R

In jacobkap/asciiSetupReader: Reads Fixed-Width ASCII Data Files (.txt or .dat) that Have Accompanying Setup Files (.sps or .sas)

context("Proper dimensions and missing values")

test_that("number of columns is correct - SPSS", {

  expect_equal(ncol(SHR2), 5)
  expect_equal(ncol(SHR3), 31)
  expect_equal(ncol(UCR2), 5)
  expect_equal(ncol(NIBRS2), 5)
  expect_equal(ncol(SHR), 152)
  expect_equal(ncol(UCR), 150)
  expect_equal(ncol(NIBRS), 20)

})


test_that("number of rows is correct - SPSS", {
  expect_equal(nrow(SHR2), 13844)
  expect_equal(nrow(SHR3), 13844)
  expect_equal(nrow(UCR2), 8452)
  expect_equal(nrow(NIBRS2), 19711)

  expect_equal(nrow(SHR), 13844)
  expect_equal(nrow(UCR), 8452)
  expect_equal(nrow(NIBRS), 19711)
})


# Check for appropriate number of NAs
test_that("Character columns have proper number of NAs - SPSS", {
  expect_equal(sum(is.na(SHR$ORI_CODE)), 0)
  expect_equal(sum(is.na(SHR$LAST_UPDATE)), 0)

  expect_equal(sum(is.na(UCR$JAN_CARD_0_P_T)), 8452)
  expect_equal(sum(is.na(UCR$MAILING_ADDRESS_LINE_1)), 200)
  expect_equal(sum(is.na(UCR$MAILING_ADDRESS_LINE_2)), 2)
  expect_equal(sum(is.na(UCR$MAILING_ADDRESS_LINE_4)), 8452)


  expect_equal(sum(is.na(NIBRS$ORIGINATING_AGENCY_IDENTIFIER)), 0)
  expect_equal(sum(is.na(NIBRS$CITY_NAME)), 0)
  expect_equal(sum(is.na(NIBRS$COVERED_BY_ORI)), 16900)
})

test_that("Numeric columns have proper number of NAs - SPSS", {
  expect_equal(sum(is.na(SHR$ADDITIONAL_VICTIM_COUNT)), 0)
  expect_equal(sum(is.na(SHR$ADDITIONAL_OFFENDER_COUNT)), 0)
  expect_equal(sum(is.na(SHR$POPULATION)), 0)

  expect_equal(sum(is.na(UCR$ZIP_CODE)), 0)
  expect_equal(sum(is.na(UCR$JAN_ACT_NUM_MURDER)), 0)
  expect_equal(sum(is.na(UCR$JAN_ACT_NUM_MANSLGHTR)), 0)
  expect_equal(sum(is.na(UCR$JAN_ACT_NUM_ROBBRY_TOTL)), 0)

  expect_equal(sum(is.na(NIBRS$N_RECORDS_PER_ORI_INCIDENT_NUMBER)), 0)
  expect_equal(sum(is.na(NIBRS$FILLER_BLANKS)), 19711)
  expect_equal(sum(is.na(NIBRS$COUNTRY_DIVISION)), 0)
})

test_that("Factor columns have proper number of NAs - SPSS", {
  expect_equal(sum(is.na(SHR$VICTIM_1_RACE)), 0)
  expect_equal(sum(is.na(SHR$VICTIM_10_RACE)), 13843)
  expect_equal(sum(is.na(SHR$OFFENDER_1_RACE)), 0)
  expect_equal(sum(is.na(SHR$OFFENDER_10_RACE)), 13842)

  expect_equal(sum(is.na(SHR$VICTIM_1_AGE)), 0)
  expect_equal(sum(is.na(SHR$VICTIM_4_AGE)), 13807)
  expect_equal(sum(is.na(SHR$OFFENDER_1_AGE)), 0)
  expect_equal(sum(is.na(SHR$OFFENDER_4_AGE)), 13530)

  expect_equal(sum(is.na(UCR$ID_CODE)), 0)
  expect_equal(sum(is.na(UCR$NUMERIC_STATE_CODE)), 0)
  expect_equal(sum(is.na(UCR$FOLLOW_UP_INDICATION)), 0)
  expect_equal(sum(is.na(UCR$JAN_MONTH_INCLUDED_IN)), 7343)

  expect_equal(sum(is.na(NIBRS$POPULATION_GROUP)), 1)
  expect_equal(sum(is.na(NIBRS$COUNTRY_DIVISION)), 0)
  expect_equal(sum(is.na(NIBRS$SEGMENT_LEVEL)), 0)
  expect_equal(sum(is.na(NIBRS$NUMERIC_STATE_CODE)), 0)

})

# SAS tests
test_that("number of columns is correct - SAS", {
  expect_equal(ncol(SHR2_sas), 5)
  expect_equal(ncol(SHR3_sas), 31)
  expect_equal(ncol(UCR2_sas), 5)
  expect_equal(ncol(NIBRS2_sas), 5)

  expect_equal(ncol(SHR_sas), 152)
  expect_equal(ncol(UCR_sas), 150)
  expect_equal(ncol(NIBRS_sas), 20)

})


test_that("number of rows is correct - SAS", {
  expect_equal(nrow(SHR2_sas), 13844)
  expect_equal(nrow(SHR3_sas), 13844)
  expect_equal(nrow(UCR2_sas), 8452)
  expect_equal(nrow(NIBRS2_sas), 19711)
  expect_equal(nrow(SHR_sas), 13844)
  expect_equal(nrow(UCR_sas), 8452)
  expect_equal(nrow(NIBRS_sas), 19711)

})


# Check for appropriate number of NAs
test_that("Character columns have proper number of NAs - SAS", {
  expect_equal(sum(is.na(SHR_sas$LAST_UPDATE)), 0)

  expect_equal(sum(is.na(UCR_sas$JAN_CARD_0_P_T)), 8452)
  expect_equal(sum(is.na(UCR_sas$MAILING_ADDRESS_LINE_1)), 200)
  expect_equal(sum(is.na(UCR_sas$MAILING_ADDRESS_LINE_2)), 2)
  expect_equal(sum(is.na(UCR_sas$MAILING_ADDRESS_LINE_4)), 8452)


  expect_equal(sum(is.na(NIBRS_sas$ORIGINATING_AGENCY_IDENTIFIER)), 0)
  expect_equal(sum(is.na(NIBRS_sas$CITY_NAME)), 0)
  expect_equal(sum(is.na(NIBRS_sas$COVERED_BY_ORI)), 16900)
})

test_that("Numeric columns have proper number of NAs - SAS", {
  expect_equal(sum(is.na(SHR_sas$ADDITIONAL_VICTIM_COUNT)), 0)
  expect_equal(sum(is.na(SHR_sas$ADDITIONAL_OFFENDER_COUNT)), 0)
  expect_equal(sum(is.na(SHR_sas$POPULATION)), 0)

  expect_equal(sum(is.na(UCR_sas$ZIP_CODE)), 0)
  expect_equal(sum(is.na(UCR_sas$JAN_ACT_NUM_MURDER)), 0)
  expect_equal(sum(is.na(UCR_sas$JAN_ACT_NUM_MANSLGHTR)), 0)
  expect_equal(sum(is.na(UCR_sas$JAN_ACT_NUM_ROBBRY_TOTL)), 0)

  expect_equal(sum(is.na(NIBRS_sas$N_RECORDS_PER_ORI_INCIDENT_NUMBER)), 0)
  expect_equal(sum(is.na(NIBRS_sas$FILLER_BLANKS)), 19711)
  expect_equal(sum(is.na(NIBRS_sas$COUNTRY_DIVISION)), 0)
})

test_that("Factor columns have proper number of NAs - SAS", {
  expect_equal(sum(is.na(SHR_sas$VICTIM_1_RACE)), 0)
  expect_equal(sum(is.na(SHR_sas$VICTIM_10_RACE)), 13843)
  expect_equal(sum(is.na(SHR_sas$OFFENDER_1_RACE)), 0)
  expect_equal(sum(is.na(SHR_sas$OFFENDER_10_RACE)), 13842)

  expect_equal(sum(is.na(SHR_sas$VICTIM_1_AGE)), 0)
  expect_equal(sum(is.na(SHR_sas$VICTIM_4_AGE)), 13807)
  expect_equal(sum(is.na(SHR_sas$OFFENDER_1_AGE)), 0)
  expect_equal(sum(is.na(SHR_sas$OFFENDER_4_AGE)), 13530)

  expect_equal(sum(is.na(UCR_sas$ID_CODE)), 0)
  expect_equal(sum(is.na(UCR_sas$NUMERIC_STATE_CODE)), 0)
  expect_equal(sum(is.na(UCR_sas$FOLLOW_UP_INDICATION)), 0)
  expect_equal(sum(is.na(UCR_sas$JAN_MONTH_INCLUDED_IN)), 7343)

  expect_equal(sum(is.na(NIBRS_sas$POPULATION_GROUP)), 1)
  expect_equal(sum(is.na(NIBRS_sas$COUNTRY_DIVISION)), 0)
  expect_equal(sum(is.na(NIBRS_sas$SEGMENT_LEVEL)), 0)
  expect_equal(sum(is.na(NIBRS_sas$NUMERIC_STATE_CODE)), 0)

})