tests/testthat/test-parser-missing-sas.R
In jacobkap/asciiReader: Reads Fixed-Width ASCII Data Files (.txt or .dat) that Have Accompanying Setup Files (.sps or .sas)
context("test-parser-missing-sas")
test_that("Right number of missing values", {
expect_equal(nrow(sac_parsed_sas$missing), 261)
expect_equal(nrow(sex_offender_parsed_sas$missing), 18)
expect_true(is.null(ucr1960_parsed_sas$missing))
expect_equal(nrow(weimar_parsed_sas$missing), 19)
expect_true(is.null(acs_parsed_sas$missing))
expect_true(is.null(nibrs_parsed_sas$missing))
expect_equal(nrow(parole_parsed_sas$missing), 89)
expect_equal(nrow(prisoners_parsed_sas$missing), 1800)
expect_true(is.null(ca_vital_parsed_sas$missing))
expect_equal(nrow(crosswalk_parsed_sas$missing), 12)
expect_equal(nrow(ucr1985_parsed_sas$missing), 166)
expect_equal(nrow(ucr1986_parsed_sas$missing), 160)
expect_true(is.null(ucr2000_parsed_sas$missing))
expect_equal(nrow(ncvs_parsed_sas$missing), 81)
expect_equal(nrow(jail_1987_parsed_sas$missing), 15)
expect_equal(nrow(jail_2010_parsed_sas$missing), 60)
expect_equal(nrow(corrections_parsed_sas$missing), 7)
# expect_equal(nrow(sadc_parsed_sas$missing), 312)
expect_true(is.null(well_being_parsed_sas$missing))
expect_true(is.null(psid_toy_parsed_sas$missing))
expect_true(is.null(health_nutrition_parsed_sas$missing))
expect_equal(nrow(india_human_parsed_sas$missing), 1)
expect_equal(nrow(census_police_parsed_sas$missing), 74)
expect_equal(nrow(step_in_parsed_sas$missing), 2)
expect_equal(nrow(cps_1973_parsed_sas$missing), 235)
expect_true(is.null(education_1985_parsed_sas$missing))
expect_true(is.null(education_1995_parsed_sas$missing))
expect_true(is.null(cps_2004_parsed_sas$missing))
expect_equal(nrow(drug_abuse_parsed_sas$missing), 424)
expect_equal(nrow(british_crime_teen_parsed_sas$missing), 1119)
expect_true(is.null(detroit_parsed_sas$missing))
expect_true(is.null(worry_parsed_sas$missing))
expect_equal(nrow(cambridge_parsed_sas$missing), 1068)
expect_true(is.null(guam_parsed_sas$missing))
expect_true(is.null(china_2002_parsed_sas$missing))
expect_true(is.null(china_1995_parsed_sas$missing))
expect_equal(nrow(china_1998_parsed_sas$missing), 47)
expect_true(is.null(indonesia_parsed_sas$missing))
expect_equal(nrow(UN_crime_parsed_sas$missing), 357)
expect_equal(nrow(county_arrest_parsed_sas$missing), 13)
})
test_that("Cambridge has right missing values", {
expect_equal(head(cambridge_parsed_sas$missing$variable),
c("V7", "V8", "V10",
"V11", "V12", "V12"))
expect_equal(head(cambridge_parsed_sas$missing$values),
c("0", "0", "0",
"0", "0", "9"))
expect_equal(tail(cambridge_parsed_sas$missing$variable),
c("V876", "V877", "V877",
"V878", "V879", "V880"))
expect_equal(tail(cambridge_parsed_sas$missing$values),
c("98", "0", "98",
"0", "0", "0"))
expect_equal(cambridge_parsed_sas$missing$values[cambridge_parsed_sas$missing$variable == "V747"],
c("6", "8", "9"))
expect_equal(head(unique(cambridge_parsed_sas$missing$variable)),
c("V7", "V8", "V10",
"V11", "V12", "V20"))
expect_equal(tail(unique(cambridge_parsed_sas$missing$variable)),
c("V875", "V876", "V877",
"V878", "V879", "V880"))
})
test_that("China 1998 has right missing values", {
expect_equal(head(china_1998_parsed_sas$missing$variable),
c("RELATION", "GENDER", "AGE",
"STUDENT", "INCOME88", "RESIDENC"))
expect_equal(head(china_1998_parsed_sas$missing$values),
c("9", "9", "999",
"9", "9", "9"))
expect_equal(tail(china_1998_parsed_sas$missing$variable),
c("IT07T", "IT07M", "IT07E",
"IT08T", "IT08M", "IT08E"))
expect_equal(tail(china_1998_parsed_sas$missing$values),
c("9", "99999", "99999",
"9", "99999", "99999"))
expect_equal(head(unique(china_1998_parsed_sas$missing$variable)),
c("RELATION", "GENDER", "AGE",
"STUDENT", "INCOME88", "RESIDENC"))
expect_equal(tail(unique(china_1998_parsed_sas$missing$variable)),
c("IT07T", "IT07M", "IT07E",
"IT08T", "IT08M", "IT08E"))
})
test_that("UN Crime has right missing values", {
expect_equal(head(UN_crime_parsed_sas$missing$variable),
c("NNHOM70N", "NNHOM70N", "NNHOM70N",
"NNHOM71N", "NNHOM71N", "NNHOM71N"))
expect_equal(head(UN_crime_parsed_sas$missing$values),
c("-2", "-3", "-9",
"-2", "-3", "-9"))
expect_equal(tail(UN_crime_parsed_sas$missing$variable),
c("X5", "X5", "X5",
"X6", "X6", "X6"))
expect_equal(tail(UN_crime_parsed_sas$missing$values),
c("-2", "-3", "-9",
"-2", "-3", "-9"))
expect_equal(head(unique(UN_crime_parsed_sas$missing$variable)),
c("NNHOM70N", "NNHOM71N", "NNHOM72N",
"NNHOM73N", "NNHOM74N", "NNHOM75N"))
expect_equal(tail(unique(UN_crime_parsed_sas$missing$variable)),
c("PSTF745", "X2", "X3",
"X4", "X5", "X6"))
})
test_that("County arrest has right missing values", {
expect_equal(head(county_arrest_parsed_sas$missing$variable),
c("V7", "V8", "V9",
"V10", "V11", "V12"))
expect_equal(head(county_arrest_parsed_sas$missing$values),
c("9999999", "9999999", "999999",
"99999", "99999", "9999"))
expect_equal(tail(county_arrest_parsed_sas$missing$variable),
c("V14", "V15", "V16",
"V17", "V18", "V19"))
expect_equal(tail(county_arrest_parsed_sas$missing$values),
c("99999", "99999", "99999",
"99999", "99999", "9999"))
expect_equal(head(unique(county_arrest_parsed_sas$missing$variable)),
c("V7", "V8", "V9",
"V10", "V11", "V12"))
expect_equal(tail(unique(county_arrest_parsed_sas$missing$variable)),
c("V14", "V15", "V16",
"V17", "V18", "V19"))
})
test_that("British Crime Teen has right missing values", {
expect_equal(head(british_crime_teen_parsed_sas$missing$variable),
c("TB_CASE", "TB_CASE", "TB_CASE",
"AR_CODE", "AR_CODE", "AR_CODE"))
expect_equal(tail(british_crime_teen_parsed_sas$missing$variable),
c("T73", "T73", "T73",
"T74", "T74", "T74"))
expect_equal(head(british_crime_teen_parsed_sas$missing$values),
c("-7", "-8", "-9",
"-7", "-8", "-9"))
expect_equal(tail(british_crime_teen_parsed_sas$missing$values),
c("-7", "-8", "-9",
"-7", "-8", "-9"))
expect_equal(head(unique(british_crime_teen_parsed_sas$missing$variable)),
c("TB_CASE", "AR_CODE", "T_SN",
"T_SCRN", "BOOSTER", "CARD_28"))
expect_equal(tail(unique(british_crime_teen_parsed_sas$missing$variable)),
c("T69", "T70", "T71",
"T72", "T73", "T74"))
})
test_that("Drug Abuse has right missing values", {
expect_equal(head(drug_abuse_parsed_sas$missing$variable),
c("ID", "RESPCODE", "SITEID",
"DATE", "DEGREE", "YEAR_DEG"))
expect_equal(tail(drug_abuse_parsed_sas$missing$variable),
c("DOCLEAD", "EOTDIV", "EOTTOL",
"EOTSCO", "EOTOPN", "EOTOPN"))
expect_equal(head(drug_abuse_parsed_sas$missing$values),
c("-9", "-9", "-9",
"-9", "-9", "-9"))
expect_equal(tail(drug_abuse_parsed_sas$missing$values),
c("-9.0", "-9.0", "-9.0",
"-9", "-9.0", "-5.0"))
expect_equal(head(unique(drug_abuse_parsed_sas$missing$variable)),
c("ID", "RESPCODE", "SITEID",
"DATE", "DEGREE", "YEAR_DEG"))
expect_equal(tail(unique(drug_abuse_parsed_sas$missing$variable)),
c("DOCSUP", "DOCLEAD", "EOTDIV",
"EOTTOL", "EOTSCO", "EOTOPN"))
})
test_that("Step In has right missing values", {
expect_equal(step_in_parsed_sas$missing$variable,
c("NR_DAYS", "CHARGE"))
expect_equal(step_in_parsed_sas$missing$values,
c("-99", "-99"))
})
test_that("CPS 1973 has right missing values", {
expect_equal(head(cps_1973_parsed_sas$missing$variable),
c("V1013", "V1014", "V1020",
"V1021", "V1022", "V1029"))
expect_equal(tail(cps_1973_parsed_sas$missing$variable),
c("V1261", "V1262", "V1263",
"V1264", "V1265", "V1266"))
expect_equal(head(cps_1973_parsed_sas$missing$values),
c("0000000", "0000000", "0000000",
"0000000", "0000000", "0000000"))
expect_equal(tail(cps_1973_parsed_sas$missing$values),
c("-999999", "-999999", "-999999",
"-999999", "-999999", "-999999"))
expect_equal(head(unique(cps_1973_parsed_sas$missing$variable)),
c("V1013", "V1014", "V1020",
"V1021", "V1022", "V1029"))
expect_equal(tail(unique(cps_1973_parsed_sas$missing$variable)),
c("V1261", "V1262", "V1263",
"V1264", "V1265", "V1266"))
})
test_that("Census Police has right missing values", {
expect_equal(head(census_police_parsed_sas$missing$variable),
c("SUBTYPE1", "SUBTYPE2", "Q1A1",
"Q1A2", "Q1A3", "Q1A4"))
expect_equal(tail(census_police_parsed_sas$missing$variable),
c("Q6E", "Q6F", "Q6G",
"Q6H", "Q6I", "Q6_TOT"))
expect_equal(head(census_police_parsed_sas$missing$values),
c("888", "888", "-9",
"-9", "-9", "-9"))
expect_equal(tail(census_police_parsed_sas$missing$values),
c("-9", "-9", "-9",
"-9", "-9", "-9"))
expect_equal(head(unique(census_police_parsed_sas$missing$variable)),
c("SUBTYPE1", "SUBTYPE2", "Q1A1",
"Q1A2", "Q1A3", "Q1A4"))
expect_equal(tail(unique(census_police_parsed_sas$missing$variable)),
c("Q6E", "Q6F", "Q6G",
"Q6H", "Q6I", "Q6_TOT"))
})
test_that("India human has right missing values", {
expect_equal(india_human_parsed_sas$missing$variable,
"MB21B")
expect_equal(tail(india_human_parsed_sas$missing$values),
c("8"))
})
test_that("Jail survey 1987 has right missing values", {
expect_equal(head(jail_1987_parsed_sas$missing$variable),
c("V156", "V162", "V163",
"V164", "V165", "V166"))
expect_equal(head(jail_1987_parsed_sas$missing$values),
c("0000009", "0000009", "0000009",
"0000009", "0000009", "0000009"))
expect_equal(tail(jail_1987_parsed_sas$missing$variable),
c("V170", "V171", "V172",
"V173", "V174", "V175"))
expect_equal(tail(jail_1987_parsed_sas$missing$values),
c("0000009", "0000000", "0000099",
"0000099", "0000099", "0000099"))
expect_equal(head(unique(jail_1987_parsed_sas$missing$variable)),
c("V156", "V162", "V163",
"V164", "V165", "V166"))
expect_equal(tail(unique(jail_1987_parsed_sas$missing$variable)),
c("V170", "V171", "V172",
"V173", "V174", "V175"))
})
test_that("Sac has right missing values", {
expect_equal(head(sac_parsed_sas$missing$variable),
c("TODDATYR", "DATSTAR", "CONSTATE",
"Q3JETH", "Q5JSUPDP", "Q6JVIC"))
expect_equal(head(sac_parsed_sas$missing$values),
c("9999", "888888", "9",
"9", "9", "9"))
expect_equal(tail(sac_parsed_sas$missing$variable),
c("Q126PN3", "Q126OTH3", "KAGE",
"VERDICT", "DURAT", "DURAT2"))
expect_equal(tail(sac_parsed_sas$missing$values),
c("9", "99", "9",
"9", "99", "9"))
expect_equal(head(unique(sac_parsed_sas$missing$variable)),
c("TODDATYR", "DATSTAR", "CONSTATE",
"Q3JETH", "Q5JSUPDP", "Q6JVIC"))
expect_equal(tail(unique(sac_parsed_sas$missing$variable)),
c("Q126PN3", "Q126OTH3", "KAGE",
"VERDICT", "DURAT", "DURAT2"))
})
# test_that("SADC has right missing values", {
# expect_equal(head(sadc_parsed_sas$missing$variable),
# c("sitecode", "sitetypenum", "year",
# "survyear", "weight", "stratum"))
# expect_equal(head(sadc_parsed_sas$missing$values),
# c("", "", "",
# "", "", ""))
# expect_equal(tail(sadc_parsed_sas$missing$variable),
# c("qnsunburn", "qnconcentrating", "qncurrentasthma",
# "qnwheresleep", "qnspeakenglish", "qntransgender"))
# expect_equal(tail(sadc_parsed_sas$missing$values),
# c("", "", "",
# "", "", ""))
#
# expect_equal(head(unique(sadc_parsed_sas$missing$variable)),
# c("sitecode", "sitetypenum", "year",
# "survyear", "weight", "stratum"))
# expect_equal(tail(unique(sadc_parsed_sas$missing$variable)),
# c("qnsunburn", "qnconcentrating", "qncurrentasthma",
# "qnwheresleep", "qnspeakenglish", "qntransgender"))
# })
test_that("Sex offender has right missing values", {
expect_equal(head(sex_offender_parsed_sas$missing$variable),
c("DATE", "Q1", "Q3",
"Q4", "Q5", "Q7"))
expect_equal(head(sex_offender_parsed_sas$missing$values),
c("8888888", "99", "99",
"99", "99", "99"))
expect_equal(tail(sex_offender_parsed_sas$missing$variable),
c("Q9E", "Q9F", "Q9G",
"Q10", "INDEX", "NEWQ9G"))
expect_equal(tail(sex_offender_parsed_sas$missing$values),
c("99", "99", "99",
"99", "9", "9"))
expect_equal(head(unique(sex_offender_parsed_sas$missing$variable)),
c("DATE", "Q1", "Q3",
"Q4", "Q5", "Q7"))
expect_equal(tail(unique(sex_offender_parsed_sas$missing$variable)),
c("Q9E", "Q9F", "Q9G",
"Q10", "INDEX", "NEWQ9G"))
})
test_that("Weimar has right missing values", {
expect_equal(head(weimar_parsed_sas$missing$variable),
c("V5", "V6", "V7",
"V8", "V9", "V10"))
expect_equal(head(weimar_parsed_sas$missing$values),
c("9999999", "9999999", "999999.",
"9999999", "9999999", "9999999"))
expect_equal(tail(weimar_parsed_sas$missing$variable),
c("V18", "V19", "V20",
"V21", "V22", "V23"))
expect_equal(tail(weimar_parsed_sas$missing$values),
c("9999999", "999999.", "9999999",
"999999.", "9999999", "999999."))
expect_equal(head(unique(weimar_parsed_sas$missing$variable)),
c("V5", "V6", "V7",
"V8", "V9", "V10"))
expect_equal(tail(unique(weimar_parsed_sas$missing$variable)),
c("V18", "V19", "V20",
"V21", "V22", "V23"))
})
test_that("Parole has right missing values", {
expect_equal(head(parole_parsed_sas$missing$variable),
c("TOTBEG", "TOTBEG", "ENDISREL",
"ENDISREL", "ENMANREL", "ENMANREL"))
expect_equal(head(parole_parsed_sas$missing$values),
c("-8", "-9", "-8" ,
"-9", "-8", "-9"))
expect_equal(tail(parole_parsed_sas$missing$variable),
c("BOOTIN", "LOCJAIL", "LOCJAILIN",
"LOCJAILIN", "OTHPAR", "ENDOFYEAR"))
expect_equal(tail(parole_parsed_sas$missing$values),
c("NA", "DK", "DK",
"NA", "DK", "DK"))
expect_equal(head(unique(parole_parsed_sas$missing$variable)),
c("TOTBEG", "ENDISREL", "ENMANREL",
"ENREINST", "OTHEN", "TOTEN"))
expect_equal(tail(unique(parole_parsed_sas$missing$variable)),
c("BOOTNUM", "BOOTIN", "LOCJAIL",
"LOCJAILIN", "OTHPAR", "ENDOFYEAR"))
})
test_that("Prisoners has right missing values", {
expect_equal(head(prisoners_parsed_sas$missing$variable),
c("YEAR", "YEAR", "YEAR",
"YEAR", "YEAR", "YEAR"))
expect_equal(head(prisoners_parsed_sas$missing$values),
c("-9", "-8", "-7",
"-6", "-5", "-4"))
expect_equal(tail(prisoners_parsed_sas$missing$variable),
c("HANDLEF", "HANDLEF", "HANDLEF",
"HANDLEF", "HANDLEF", "HANDLEF"))
expect_equal(tail(prisoners_parsed_sas$missing$values),
c("-6", "-5", "-4",
"-3", "-2", "-1"))
expect_equal(head(unique(prisoners_parsed_sas$missing$variable)),
c("YEAR", "STATEID", "REGION",
"CUSGT1M", "CUSGT1F", "CUSLT1M"))
expect_equal(tail(unique(prisoners_parsed_sas$missing$variable)),
c("DTHOTHM", "DTHOTHF", "DTHTOTM",
"DTHTOTF", "HANDLEM", "HANDLEF"))
})
test_that("Crosswalk has right missing values", {
expect_equal(head(crosswalk_parsed_sas$missing$variable),
c("UORI", "UCOUNTY", "UMSA",
"UPOPGRP", "UADD5", "CGOVIDNU"))
expect_equal(head(crosswalk_parsed_sas$missing$values),
c("", "999", "999",
"", "99999", "999999999"))
expect_equal(tail(crosswalk_parsed_sas$missing$variable),
c("CGOVTYPE", "FSTATE", "FCOUNTY",
"FPLACE", "FMSA", "FCMSA"))
expect_equal(tail(crosswalk_parsed_sas$missing$values),
c("99", "99", "999",
"999999", "9999", "999"))
expect_equal(head(unique(crosswalk_parsed_sas$missing$variable)),
c("UORI", "UCOUNTY", "UMSA",
"UPOPGRP", "UADD5", "CGOVIDNU"))
expect_equal(tail(unique(crosswalk_parsed_sas$missing$variable)),
c("CGOVTYPE", "FSTATE", "FCOUNTY",
"FPLACE", "FMSA", "FCMSA"))
})
test_that("UCR 1985 has right missing values", {
expect_equal(head(ucr1985_parsed_sas$missing$variable),
c("V5", "V8", "V10",
"V11", "V11", "V12"))
expect_equal(head(ucr1985_parsed_sas$missing$values),
c("99", "99", "99",
"0", "99999", "0"))
expect_equal(tail(ucr1985_parsed_sas$missing$variable),
c("V169", "V170", "V171",
"V172", "V173", "V174"))
expect_equal(tail(ucr1985_parsed_sas$missing$values),
c("0", "0", "0",
"0", "0", "0"))
expect_equal(head(unique(ucr1985_parsed_sas$missing$variable)),
c("V5", "V8", "V10",
"V11", "V12", "V13"))
expect_equal(tail(unique(ucr1985_parsed_sas$missing$variable)),
c("V169", "V170", "V171",
"V172", "V173", "V174"))
})
test_that("UCR 1986 has right missing values", {
expect_equal(head(ucr1986_parsed_sas$missing$variable),
c("V4", "V5", "V7",
"V8", "V9", "V10"))
expect_equal(head(ucr1986_parsed_sas$missing$values),
c("0000000", "0000099", "0000000",
"0000099", "0000000", "0000099"))
expect_equal(tail(ucr1986_parsed_sas$missing$variable),
c("V169", "V170", "V171",
"V172", "V173", "V174"))
expect_equal(tail(ucr1986_parsed_sas$missing$values),
c("0000000", "0000000", "0000000",
"0000000", "0000000", "0000000"))
expect_equal(head(unique(ucr1986_parsed_sas$missing$variable)),
c("V4", "V5", "V7",
"V8", "V9", "V10"))
expect_equal(tail(unique(ucr1986_parsed_sas$missing$variable)),
c("V169", "V170", "V171",
"V172", "V173", "V174"))
})
test_that("Jail 2010 has right missing values", {
expect_equal(head(jail_2010_parsed_sas$missing$variable),
c("NONCITZF", "WEEK", "CONVII10A",
"CONVII10AF", "UNCONVII10A", "UNCONVII10AF"))
expect_equal(head(jail_2010_parsed_sas$missing$values),
c("-9", "-9", "-9",
"-9", "-9", "-9"))
expect_equal(tail(jail_2010_parsed_sas$missing$variable),
c("STOLENPROP", "STOLENPROPF", "ESCAPE",
"ESCAPEF", "OTHERMAJVIO", "OTHERMAJVIOF"))
expect_equal(tail(jail_2010_parsed_sas$missing$values),
c("-9", "-9", "-9",
"-9", "-9", "-9"))
expect_equal(head(unique(jail_2010_parsed_sas$missing$variable)),
c("NONCITZF", "WEEK", "CONVII10A",
"CONVII10AF", "UNCONVII10A", "UNCONVII10AF"))
expect_equal(tail(unique(jail_2010_parsed_sas$missing$variable)),
c("STOLENPROP", "STOLENPROPF", "ESCAPE",
"ESCAPEF", "OTHERMAJVIO", "OTHERMAJVIOF"))
})
test_that("Corrections has right missing values", {
expect_equal(head(corrections_parsed_sas$missing$variable),
c("EDUCATION", "ADMTYPE", "OFFGENERAL",
"SENTLGTH", "OFFDETAIL", "RACE"))
expect_equal(head(corrections_parsed_sas$missing$values),
c("9", "9", "9",
"9", "99", "9"))
expect_equal(tail(corrections_parsed_sas$missing$variable),
c("ADMTYPE", "OFFGENERAL", "SENTLGTH",
"OFFDETAIL", "RACE", "AGEADMIT"))
expect_equal(tail(corrections_parsed_sas$missing$values),
c("9", "9", "9",
"99", "9", "9"))
expect_equal(head(unique(corrections_parsed_sas$missing$variable)),
c("EDUCATION", "ADMTYPE", "OFFGENERAL",
"SENTLGTH", "OFFDETAIL", "RACE"))
expect_equal(tail(unique(corrections_parsed_sas$missing$variable)),
c("ADMTYPE", "OFFGENERAL", "SENTLGTH",
"OFFDETAIL", "RACE", "AGEADMIT"))
})
test_that("NCVS 1979 has right missing values", {
expect_equal(head(ncvs_parsed_sas$missing$variable),
c("V2009", "V2010", "V2012",
"V2014", "V2016", "V2018"))
expect_equal(head(ncvs_parsed_sas$missing$values),
c("9998 thru highest",
"8 thru highest",
"98 thru highest",
"8 thru highest",
"8 thru highest",
"8 thru highest"))
expect_equal(tail(ncvs_parsed_sas$missing$variable),
c("V3048", "V3049", "V3050",
"V3051", "V3052", "V3053"))
expect_equal(tail(ncvs_parsed_sas$missing$values),
c("98 thru highest",
"98 thru highest",
"98 thru highest",
"98 thru highest",
"98 thru highest",
"98 thru highest"))
expect_equal(head(unique(ncvs_parsed_sas$missing$variable)),
c("V2009", "V2010", "V2012",
"V2014", "V2016", "V2018"))
expect_equal(tail(unique(ncvs_parsed_sas$missing$variable)),
c("V3048", "V3049", "V3050",
"V3051", "V3052", "V3053"))
})
test_that("SHR 1988 has right missing values", {
expect_equal(head(SHR1988_parsed_sas$missing$variable),
c("V12", "V13", "V25",
"V26", "V27", "V28"))
expect_equal(head(SHR1988_parsed_sas$missing$values),
c("0", "0", "0",
"9", "9", "9"))
expect_equal(tail(SHR1988_parsed_sas$missing$variable),
c("V154", "V154", "V155",
"V155", "V156", "V156"))
expect_equal(tail(SHR1988_parsed_sas$missing$values),
c("98", "99", "98",
"99", "8 thru highest", "7"))
expect_equal(head(unique(SHR1988_parsed_sas$missing$variable)),
c("V12", "V13", "V25",
"V26", "V27", "V28"))
expect_equal(tail(unique(SHR1988_parsed_sas$missing$variable)),
c("V151", "V152", "V153",
"V154", "V155", "V156"))
})
test_that("SHR 1987 has right missing values", {
expect_equal(head(SHR1987_parsed_sas$missing$variable),
c("V12", "V13", "V25",
"V26", "V27", "V28"))
expect_equal(head(SHR1987_parsed_sas$missing$values),
c("0", "0", "0",
"9", "9", "9"))
expect_equal(tail(SHR1987_parsed_sas$missing$variable),
c("V154", "V154", "V155",
"V155", "V156", "V156"))
expect_equal(tail(SHR1987_parsed_sas$missing$values),
c("98", "99", "98",
"99", "8 thru highest", "7"))
expect_equal(head(SHR1987_parsed_sas$missing$variable),
c("V12", "V13", "V25",
"V26", "V27", "V28"))
expect_equal(tail(unique(SHR1987_parsed_sas$missing$variable)),
c("V151", "V152", "V153",
"V154", "V155", "V156"))
})
test_that("UCR 1985 has right missing values", {
expect_equal(head(ucr1985_parsed_sas$missing$variable),
c("V5", "V8", "V10",
"V11", "V11", "V12"))
expect_equal(head(ucr1985_parsed_sas$missing$values),
c("99", "99", "99",
"0", "99999", "0"))
expect_equal(tail(ucr1985_parsed_sas$missing$variable),
c("V169", "V170", "V171",
"V172", "V173", "V174"))
expect_equal(tail(ucr1985_parsed_sas$missing$values),
c("0", "0", "0",
"0", "0", "0"))
expect_equal(head(unique(ucr1985_parsed_sas$missing$variable)),
c("V5", "V8", "V10",
"V11", "V12", "V13"))
expect_equal(tail(ucr1985_parsed_sas$missing$variable),
c("V169", "V170", "V171",
"V172", "V173", "V174"))
})
jacobkap/asciiReader documentation built on July 18, 2023, 2:43 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("test-parser-missing-sas")
test_that("Right number of missing values", {
expect_equal(nrow(sac_parsed_sas$missing), 261)
expect_equal(nrow(sex_offender_parsed_sas$missing), 18)
expect_true(is.null(ucr1960_parsed_sas$missing))
expect_equal(nrow(weimar_parsed_sas$missing), 19)
expect_true(is.null(acs_parsed_sas$missing))
expect_true(is.null(nibrs_parsed_sas$missing))
expect_equal(nrow(parole_parsed_sas$missing), 89)
expect_equal(nrow(prisoners_parsed_sas$missing), 1800)
expect_true(is.null(ca_vital_parsed_sas$missing))
expect_equal(nrow(crosswalk_parsed_sas$missing), 12)
expect_equal(nrow(ucr1985_parsed_sas$missing), 166)
expect_equal(nrow(ucr1986_parsed_sas$missing), 160)
expect_true(is.null(ucr2000_parsed_sas$missing))
expect_equal(nrow(ncvs_parsed_sas$missing), 81)
expect_equal(nrow(jail_1987_parsed_sas$missing), 15)
expect_equal(nrow(jail_2010_parsed_sas$missing), 60)
expect_equal(nrow(corrections_parsed_sas$missing), 7)
# expect_equal(nrow(sadc_parsed_sas$missing), 312)
expect_true(is.null(well_being_parsed_sas$missing))
expect_true(is.null(psid_toy_parsed_sas$missing))
expect_true(is.null(health_nutrition_parsed_sas$missing))
expect_equal(nrow(india_human_parsed_sas$missing), 1)
expect_equal(nrow(census_police_parsed_sas$missing), 74)
expect_equal(nrow(step_in_parsed_sas$missing), 2)
expect_equal(nrow(cps_1973_parsed_sas$missing), 235)
expect_true(is.null(education_1985_parsed_sas$missing))
expect_true(is.null(education_1995_parsed_sas$missing))
expect_true(is.null(cps_2004_parsed_sas$missing))
expect_equal(nrow(drug_abuse_parsed_sas$missing), 424)
expect_equal(nrow(british_crime_teen_parsed_sas$missing), 1119)
expect_true(is.null(detroit_parsed_sas$missing))
expect_true(is.null(worry_parsed_sas$missing))
expect_equal(nrow(cambridge_parsed_sas$missing), 1068)
expect_true(is.null(guam_parsed_sas$missing))
expect_true(is.null(china_2002_parsed_sas$missing))
expect_true(is.null(china_1995_parsed_sas$missing))
expect_equal(nrow(china_1998_parsed_sas$missing), 47)
expect_true(is.null(indonesia_parsed_sas$missing))
expect_equal(nrow(UN_crime_parsed_sas$missing), 357)
expect_equal(nrow(county_arrest_parsed_sas$missing), 13)
})
test_that("Cambridge has right missing values", {
expect_equal(head(cambridge_parsed_sas$missing$variable),
c("V7", "V8", "V10",
"V11", "V12", "V12"))
expect_equal(head(cambridge_parsed_sas$missing$values),
c("0", "0", "0",
"0", "0", "9"))
expect_equal(tail(cambridge_parsed_sas$missing$variable),
c("V876", "V877", "V877",
"V878", "V879", "V880"))
expect_equal(tail(cambridge_parsed_sas$missing$values),
c("98", "0", "98",
"0", "0", "0"))
expect_equal(cambridge_parsed_sas$missing$values[cambridge_parsed_sas$missing$variable == "V747"],
c("6", "8", "9"))
expect_equal(head(unique(cambridge_parsed_sas$missing$variable)),
c("V7", "V8", "V10",
"V11", "V12", "V20"))
expect_equal(tail(unique(cambridge_parsed_sas$missing$variable)),
c("V875", "V876", "V877",
"V878", "V879", "V880"))
})
test_that("China 1998 has right missing values", {
expect_equal(head(china_1998_parsed_sas$missing$variable),
c("RELATION", "GENDER", "AGE",
"STUDENT", "INCOME88", "RESIDENC"))
expect_equal(head(china_1998_parsed_sas$missing$values),
c("9", "9", "999",
"9", "9", "9"))
expect_equal(tail(china_1998_parsed_sas$missing$variable),
c("IT07T", "IT07M", "IT07E",
"IT08T", "IT08M", "IT08E"))
expect_equal(tail(china_1998_parsed_sas$missing$values),
c("9", "99999", "99999",
"9", "99999", "99999"))
expect_equal(head(unique(china_1998_parsed_sas$missing$variable)),
c("RELATION", "GENDER", "AGE",
"STUDENT", "INCOME88", "RESIDENC"))
expect_equal(tail(unique(china_1998_parsed_sas$missing$variable)),
c("IT07T", "IT07M", "IT07E",
"IT08T", "IT08M", "IT08E"))
})
test_that("UN Crime has right missing values", {
expect_equal(head(UN_crime_parsed_sas$missing$variable),
c("NNHOM70N", "NNHOM70N", "NNHOM70N",
"NNHOM71N", "NNHOM71N", "NNHOM71N"))
expect_equal(head(UN_crime_parsed_sas$missing$values),
c("-2", "-3", "-9",
"-2", "-3", "-9"))
expect_equal(tail(UN_crime_parsed_sas$missing$variable),
c("X5", "X5", "X5",
"X6", "X6", "X6"))
expect_equal(tail(UN_crime_parsed_sas$missing$values),
c("-2", "-3", "-9",
"-2", "-3", "-9"))
expect_equal(head(unique(UN_crime_parsed_sas$missing$variable)),
c("NNHOM70N", "NNHOM71N", "NNHOM72N",
"NNHOM73N", "NNHOM74N", "NNHOM75N"))
expect_equal(tail(unique(UN_crime_parsed_sas$missing$variable)),
c("PSTF745", "X2", "X3",
"X4", "X5", "X6"))
})
test_that("County arrest has right missing values", {
expect_equal(head(county_arrest_parsed_sas$missing$variable),
c("V7", "V8", "V9",
"V10", "V11", "V12"))
expect_equal(head(county_arrest_parsed_sas$missing$values),
c("9999999", "9999999", "999999",
"99999", "99999", "9999"))
expect_equal(tail(county_arrest_parsed_sas$missing$variable),
c("V14", "V15", "V16",
"V17", "V18", "V19"))
expect_equal(tail(county_arrest_parsed_sas$missing$values),
c("99999", "99999", "99999",
"99999", "99999", "9999"))
expect_equal(head(unique(county_arrest_parsed_sas$missing$variable)),
c("V7", "V8", "V9",
"V10", "V11", "V12"))
expect_equal(tail(unique(county_arrest_parsed_sas$missing$variable)),
c("V14", "V15", "V16",
"V17", "V18", "V19"))
})
test_that("British Crime Teen has right missing values", {
expect_equal(head(british_crime_teen_parsed_sas$missing$variable),
c("TB_CASE", "TB_CASE", "TB_CASE",
"AR_CODE", "AR_CODE", "AR_CODE"))
expect_equal(tail(british_crime_teen_parsed_sas$missing$variable),
c("T73", "T73", "T73",
"T74", "T74", "T74"))
expect_equal(head(british_crime_teen_parsed_sas$missing$values),
c("-7", "-8", "-9",
"-7", "-8", "-9"))
expect_equal(tail(british_crime_teen_parsed_sas$missing$values),
c("-7", "-8", "-9",
"-7", "-8", "-9"))
expect_equal(head(unique(british_crime_teen_parsed_sas$missing$variable)),
c("TB_CASE", "AR_CODE", "T_SN",
"T_SCRN", "BOOSTER", "CARD_28"))
expect_equal(tail(unique(british_crime_teen_parsed_sas$missing$variable)),
c("T69", "T70", "T71",
"T72", "T73", "T74"))
})
test_that("Drug Abuse has right missing values", {
expect_equal(head(drug_abuse_parsed_sas$missing$variable),
c("ID", "RESPCODE", "SITEID",
"DATE", "DEGREE", "YEAR_DEG"))
expect_equal(tail(drug_abuse_parsed_sas$missing$variable),
c("DOCLEAD", "EOTDIV", "EOTTOL",
"EOTSCO", "EOTOPN", "EOTOPN"))
expect_equal(head(drug_abuse_parsed_sas$missing$values),
c("-9", "-9", "-9",
"-9", "-9", "-9"))
expect_equal(tail(drug_abuse_parsed_sas$missing$values),
c("-9.0", "-9.0", "-9.0",
"-9", "-9.0", "-5.0"))
expect_equal(head(unique(drug_abuse_parsed_sas$missing$variable)),
c("ID", "RESPCODE", "SITEID",
"DATE", "DEGREE", "YEAR_DEG"))
expect_equal(tail(unique(drug_abuse_parsed_sas$missing$variable)),
c("DOCSUP", "DOCLEAD", "EOTDIV",
"EOTTOL", "EOTSCO", "EOTOPN"))
})
test_that("Step In has right missing values", {
expect_equal(step_in_parsed_sas$missing$variable,
c("NR_DAYS", "CHARGE"))
expect_equal(step_in_parsed_sas$missing$values,
c("-99", "-99"))
})
test_that("CPS 1973 has right missing values", {
expect_equal(head(cps_1973_parsed_sas$missing$variable),
c("V1013", "V1014", "V1020",
"V1021", "V1022", "V1029"))
expect_equal(tail(cps_1973_parsed_sas$missing$variable),
c("V1261", "V1262", "V1263",
"V1264", "V1265", "V1266"))
expect_equal(head(cps_1973_parsed_sas$missing$values),
c("0000000", "0000000", "0000000",
"0000000", "0000000", "0000000"))
expect_equal(tail(cps_1973_parsed_sas$missing$values),
c("-999999", "-999999", "-999999",
"-999999", "-999999", "-999999"))
expect_equal(head(unique(cps_1973_parsed_sas$missing$variable)),
c("V1013", "V1014", "V1020",
"V1021", "V1022", "V1029"))
expect_equal(tail(unique(cps_1973_parsed_sas$missing$variable)),
c("V1261", "V1262", "V1263",
"V1264", "V1265", "V1266"))
})
test_that("Census Police has right missing values", {
expect_equal(head(census_police_parsed_sas$missing$variable),
c("SUBTYPE1", "SUBTYPE2", "Q1A1",
"Q1A2", "Q1A3", "Q1A4"))
expect_equal(tail(census_police_parsed_sas$missing$variable),
c("Q6E", "Q6F", "Q6G",
"Q6H", "Q6I", "Q6_TOT"))
expect_equal(head(census_police_parsed_sas$missing$values),
c("888", "888", "-9",
"-9", "-9", "-9"))
expect_equal(tail(census_police_parsed_sas$missing$values),
c("-9", "-9", "-9",
"-9", "-9", "-9"))
expect_equal(head(unique(census_police_parsed_sas$missing$variable)),
c("SUBTYPE1", "SUBTYPE2", "Q1A1",
"Q1A2", "Q1A3", "Q1A4"))
expect_equal(tail(unique(census_police_parsed_sas$missing$variable)),
c("Q6E", "Q6F", "Q6G",
"Q6H", "Q6I", "Q6_TOT"))
})
test_that("India human has right missing values", {
expect_equal(india_human_parsed_sas$missing$variable,
"MB21B")
expect_equal(tail(india_human_parsed_sas$missing$values),
c("8"))
})
test_that("Jail survey 1987 has right missing values", {
expect_equal(head(jail_1987_parsed_sas$missing$variable),
c("V156", "V162", "V163",
"V164", "V165", "V166"))
expect_equal(head(jail_1987_parsed_sas$missing$values),
c("0000009", "0000009", "0000009",
"0000009", "0000009", "0000009"))
expect_equal(tail(jail_1987_parsed_sas$missing$variable),
c("V170", "V171", "V172",
"V173", "V174", "V175"))
expect_equal(tail(jail_1987_parsed_sas$missing$values),
c("0000009", "0000000", "0000099",
"0000099", "0000099", "0000099"))
expect_equal(head(unique(jail_1987_parsed_sas$missing$variable)),
c("V156", "V162", "V163",
"V164", "V165", "V166"))
expect_equal(tail(unique(jail_1987_parsed_sas$missing$variable)),
c("V170", "V171", "V172",
"V173", "V174", "V175"))
})
test_that("Sac has right missing values", {
expect_equal(head(sac_parsed_sas$missing$variable),
c("TODDATYR", "DATSTAR", "CONSTATE",
"Q3JETH", "Q5JSUPDP", "Q6JVIC"))
expect_equal(head(sac_parsed_sas$missing$values),
c("9999", "888888", "9",
"9", "9", "9"))
expect_equal(tail(sac_parsed_sas$missing$variable),
c("Q126PN3", "Q126OTH3", "KAGE",
"VERDICT", "DURAT", "DURAT2"))
expect_equal(tail(sac_parsed_sas$missing$values),
c("9", "99", "9",
"9", "99", "9"))
expect_equal(head(unique(sac_parsed_sas$missing$variable)),
c("TODDATYR", "DATSTAR", "CONSTATE",
"Q3JETH", "Q5JSUPDP", "Q6JVIC"))
expect_equal(tail(unique(sac_parsed_sas$missing$variable)),
c("Q126PN3", "Q126OTH3", "KAGE",
"VERDICT", "DURAT", "DURAT2"))
})
# test_that("SADC has right missing values", {
# expect_equal(head(sadc_parsed_sas$missing$variable),
# c("sitecode", "sitetypenum", "year",
# "survyear", "weight", "stratum"))
# expect_equal(head(sadc_parsed_sas$missing$values),
# c("", "", "",
# "", "", ""))
# expect_equal(tail(sadc_parsed_sas$missing$variable),
# c("qnsunburn", "qnconcentrating", "qncurrentasthma",
# "qnwheresleep", "qnspeakenglish", "qntransgender"))
# expect_equal(tail(sadc_parsed_sas$missing$values),
# c("", "", "",
# "", "", ""))
#
# expect_equal(head(unique(sadc_parsed_sas$missing$variable)),
# c("sitecode", "sitetypenum", "year",
# "survyear", "weight", "stratum"))
# expect_equal(tail(unique(sadc_parsed_sas$missing$variable)),
# c("qnsunburn", "qnconcentrating", "qncurrentasthma",
# "qnwheresleep", "qnspeakenglish", "qntransgender"))
# })
test_that("Sex offender has right missing values", {
expect_equal(head(sex_offender_parsed_sas$missing$variable),
c("DATE", "Q1", "Q3",
"Q4", "Q5", "Q7"))
expect_equal(head(sex_offender_parsed_sas$missing$values),
c("8888888", "99", "99",
"99", "99", "99"))
expect_equal(tail(sex_offender_parsed_sas$missing$variable),
c("Q9E", "Q9F", "Q9G",
"Q10", "INDEX", "NEWQ9G"))
expect_equal(tail(sex_offender_parsed_sas$missing$values),
c("99", "99", "99",
"99", "9", "9"))
expect_equal(head(unique(sex_offender_parsed_sas$missing$variable)),
c("DATE", "Q1", "Q3",
"Q4", "Q5", "Q7"))
expect_equal(tail(unique(sex_offender_parsed_sas$missing$variable)),
c("Q9E", "Q9F", "Q9G",
"Q10", "INDEX", "NEWQ9G"))
})
test_that("Weimar has right missing values", {
expect_equal(head(weimar_parsed_sas$missing$variable),
c("V5", "V6", "V7",
"V8", "V9", "V10"))
expect_equal(head(weimar_parsed_sas$missing$values),
c("9999999", "9999999", "999999.",
"9999999", "9999999", "9999999"))
expect_equal(tail(weimar_parsed_sas$missing$variable),
c("V18", "V19", "V20",
"V21", "V22", "V23"))
expect_equal(tail(weimar_parsed_sas$missing$values),
c("9999999", "999999.", "9999999",
"999999.", "9999999", "999999."))
expect_equal(head(unique(weimar_parsed_sas$missing$variable)),
c("V5", "V6", "V7",
"V8", "V9", "V10"))
expect_equal(tail(unique(weimar_parsed_sas$missing$variable)),
c("V18", "V19", "V20",
"V21", "V22", "V23"))
})
test_that("Parole has right missing values", {
expect_equal(head(parole_parsed_sas$missing$variable),
c("TOTBEG", "TOTBEG", "ENDISREL",
"ENDISREL", "ENMANREL", "ENMANREL"))
expect_equal(head(parole_parsed_sas$missing$values),
c("-8", "-9", "-8" ,
"-9", "-8", "-9"))
expect_equal(tail(parole_parsed_sas$missing$variable),
c("BOOTIN", "LOCJAIL", "LOCJAILIN",
"LOCJAILIN", "OTHPAR", "ENDOFYEAR"))
expect_equal(tail(parole_parsed_sas$missing$values),
c("NA", "DK", "DK",
"NA", "DK", "DK"))
expect_equal(head(unique(parole_parsed_sas$missing$variable)),
c("TOTBEG", "ENDISREL", "ENMANREL",
"ENREINST", "OTHEN", "TOTEN"))
expect_equal(tail(unique(parole_parsed_sas$missing$variable)),
c("BOOTNUM", "BOOTIN", "LOCJAIL",
"LOCJAILIN", "OTHPAR", "ENDOFYEAR"))
})
test_that("Prisoners has right missing values", {
expect_equal(head(prisoners_parsed_sas$missing$variable),
c("YEAR", "YEAR", "YEAR",
"YEAR", "YEAR", "YEAR"))
expect_equal(head(prisoners_parsed_sas$missing$values),
c("-9", "-8", "-7",
"-6", "-5", "-4"))
expect_equal(tail(prisoners_parsed_sas$missing$variable),
c("HANDLEF", "HANDLEF", "HANDLEF",
"HANDLEF", "HANDLEF", "HANDLEF"))
expect_equal(tail(prisoners_parsed_sas$missing$values),
c("-6", "-5", "-4",
"-3", "-2", "-1"))
expect_equal(head(unique(prisoners_parsed_sas$missing$variable)),
c("YEAR", "STATEID", "REGION",
"CUSGT1M", "CUSGT1F", "CUSLT1M"))
expect_equal(tail(unique(prisoners_parsed_sas$missing$variable)),
c("DTHOTHM", "DTHOTHF", "DTHTOTM",
"DTHTOTF", "HANDLEM", "HANDLEF"))
})
test_that("Crosswalk has right missing values", {
expect_equal(head(crosswalk_parsed_sas$missing$variable),
c("UORI", "UCOUNTY", "UMSA",
"UPOPGRP", "UADD5", "CGOVIDNU"))
expect_equal(head(crosswalk_parsed_sas$missing$values),
c("", "999", "999",
"", "99999", "999999999"))
expect_equal(tail(crosswalk_parsed_sas$missing$variable),
c("CGOVTYPE", "FSTATE", "FCOUNTY",
"FPLACE", "FMSA", "FCMSA"))
expect_equal(tail(crosswalk_parsed_sas$missing$values),
c("99", "99", "999",
"999999", "9999", "999"))
expect_equal(head(unique(crosswalk_parsed_sas$missing$variable)),
c("UORI", "UCOUNTY", "UMSA",
"UPOPGRP", "UADD5", "CGOVIDNU"))
expect_equal(tail(unique(crosswalk_parsed_sas$missing$variable)),
c("CGOVTYPE", "FSTATE", "FCOUNTY",
"FPLACE", "FMSA", "FCMSA"))
})
test_that("UCR 1985 has right missing values", {
expect_equal(head(ucr1985_parsed_sas$missing$variable),
c("V5", "V8", "V10",
"V11", "V11", "V12"))
expect_equal(head(ucr1985_parsed_sas$missing$values),
c("99", "99", "99",
"0", "99999", "0"))
expect_equal(tail(ucr1985_parsed_sas$missing$variable),
c("V169", "V170", "V171",
"V172", "V173", "V174"))
expect_equal(tail(ucr1985_parsed_sas$missing$values),
c("0", "0", "0",
"0", "0", "0"))
expect_equal(head(unique(ucr1985_parsed_sas$missing$variable)),
c("V5", "V8", "V10",
"V11", "V12", "V13"))
expect_equal(tail(unique(ucr1985_parsed_sas$missing$variable)),
c("V169", "V170", "V171",
"V172", "V173", "V174"))
})
test_that("UCR 1986 has right missing values", {
expect_equal(head(ucr1986_parsed_sas$missing$variable),
c("V4", "V5", "V7",
"V8", "V9", "V10"))
expect_equal(head(ucr1986_parsed_sas$missing$values),
c("0000000", "0000099", "0000000",
"0000099", "0000000", "0000099"))
expect_equal(tail(ucr1986_parsed_sas$missing$variable),
c("V169", "V170", "V171",
"V172", "V173", "V174"))
expect_equal(tail(ucr1986_parsed_sas$missing$values),
c("0000000", "0000000", "0000000",
"0000000", "0000000", "0000000"))
expect_equal(head(unique(ucr1986_parsed_sas$missing$variable)),
c("V4", "V5", "V7",
"V8", "V9", "V10"))
expect_equal(tail(unique(ucr1986_parsed_sas$missing$variable)),
c("V169", "V170", "V171",
"V172", "V173", "V174"))
})
test_that("Jail 2010 has right missing values", {
expect_equal(head(jail_2010_parsed_sas$missing$variable),
c("NONCITZF", "WEEK", "CONVII10A",
"CONVII10AF", "UNCONVII10A", "UNCONVII10AF"))
expect_equal(head(jail_2010_parsed_sas$missing$values),
c("-9", "-9", "-9",
"-9", "-9", "-9"))
expect_equal(tail(jail_2010_parsed_sas$missing$variable),
c("STOLENPROP", "STOLENPROPF", "ESCAPE",
"ESCAPEF", "OTHERMAJVIO", "OTHERMAJVIOF"))
expect_equal(tail(jail_2010_parsed_sas$missing$values),
c("-9", "-9", "-9",
"-9", "-9", "-9"))
expect_equal(head(unique(jail_2010_parsed_sas$missing$variable)),
c("NONCITZF", "WEEK", "CONVII10A",
"CONVII10AF", "UNCONVII10A", "UNCONVII10AF"))
expect_equal(tail(unique(jail_2010_parsed_sas$missing$variable)),
c("STOLENPROP", "STOLENPROPF", "ESCAPE",
"ESCAPEF", "OTHERMAJVIO", "OTHERMAJVIOF"))
})
test_that("Corrections has right missing values", {
expect_equal(head(corrections_parsed_sas$missing$variable),
c("EDUCATION", "ADMTYPE", "OFFGENERAL",
"SENTLGTH", "OFFDETAIL", "RACE"))
expect_equal(head(corrections_parsed_sas$missing$values),
c("9", "9", "9",
"9", "99", "9"))
expect_equal(tail(corrections_parsed_sas$missing$variable),
c("ADMTYPE", "OFFGENERAL", "SENTLGTH",
"OFFDETAIL", "RACE", "AGEADMIT"))
expect_equal(tail(corrections_parsed_sas$missing$values),
c("9", "9", "9",
"99", "9", "9"))
expect_equal(head(unique(corrections_parsed_sas$missing$variable)),
c("EDUCATION", "ADMTYPE", "OFFGENERAL",
"SENTLGTH", "OFFDETAIL", "RACE"))
expect_equal(tail(unique(corrections_parsed_sas$missing$variable)),
c("ADMTYPE", "OFFGENERAL", "SENTLGTH",
"OFFDETAIL", "RACE", "AGEADMIT"))
})
test_that("NCVS 1979 has right missing values", {
expect_equal(head(ncvs_parsed_sas$missing$variable),
c("V2009", "V2010", "V2012",
"V2014", "V2016", "V2018"))
expect_equal(head(ncvs_parsed_sas$missing$values),
c("9998 thru highest",
"8 thru highest",
"98 thru highest",
"8 thru highest",
"8 thru highest",
"8 thru highest"))
expect_equal(tail(ncvs_parsed_sas$missing$variable),
c("V3048", "V3049", "V3050",
"V3051", "V3052", "V3053"))
expect_equal(tail(ncvs_parsed_sas$missing$values),
c("98 thru highest",
"98 thru highest",
"98 thru highest",
"98 thru highest",
"98 thru highest",
"98 thru highest"))
expect_equal(head(unique(ncvs_parsed_sas$missing$variable)),
c("V2009", "V2010", "V2012",
"V2014", "V2016", "V2018"))
expect_equal(tail(unique(ncvs_parsed_sas$missing$variable)),
c("V3048", "V3049", "V3050",
"V3051", "V3052", "V3053"))
})
test_that("SHR 1988 has right missing values", {
expect_equal(head(SHR1988_parsed_sas$missing$variable),
c("V12", "V13", "V25",
"V26", "V27", "V28"))
expect_equal(head(SHR1988_parsed_sas$missing$values),
c("0", "0", "0",
"9", "9", "9"))
expect_equal(tail(SHR1988_parsed_sas$missing$variable),
c("V154", "V154", "V155",
"V155", "V156", "V156"))
expect_equal(tail(SHR1988_parsed_sas$missing$values),
c("98", "99", "98",
"99", "8 thru highest", "7"))
expect_equal(head(unique(SHR1988_parsed_sas$missing$variable)),
c("V12", "V13", "V25",
"V26", "V27", "V28"))
expect_equal(tail(unique(SHR1988_parsed_sas$missing$variable)),
c("V151", "V152", "V153",
"V154", "V155", "V156"))
})
test_that("SHR 1987 has right missing values", {
expect_equal(head(SHR1987_parsed_sas$missing$variable),
c("V12", "V13", "V25",
"V26", "V27", "V28"))
expect_equal(head(SHR1987_parsed_sas$missing$values),
c("0", "0", "0",
"9", "9", "9"))
expect_equal(tail(SHR1987_parsed_sas$missing$variable),
c("V154", "V154", "V155",
"V155", "V156", "V156"))
expect_equal(tail(SHR1987_parsed_sas$missing$values),
c("98", "99", "98",
"99", "8 thru highest", "7"))
expect_equal(head(SHR1987_parsed_sas$missing$variable),
c("V12", "V13", "V25",
"V26", "V27", "V28"))
expect_equal(tail(unique(SHR1987_parsed_sas$missing$variable)),
c("V151", "V152", "V153",
"V154", "V155", "V156"))
})
test_that("UCR 1985 has right missing values", {
expect_equal(head(ucr1985_parsed_sas$missing$variable),
c("V5", "V8", "V10",
"V11", "V11", "V12"))
expect_equal(head(ucr1985_parsed_sas$missing$values),
c("99", "99", "99",
"0", "99999", "0"))
expect_equal(tail(ucr1985_parsed_sas$missing$variable),
c("V169", "V170", "V171",
"V172", "V173", "V174"))
expect_equal(tail(ucr1985_parsed_sas$missing$values),
c("0", "0", "0",
"0", "0", "0"))
expect_equal(head(unique(ucr1985_parsed_sas$missing$variable)),
c("V5", "V8", "V10",
"V11", "V12", "V13"))
expect_equal(tail(ucr1985_parsed_sas$missing$variable),
c("V169", "V170", "V171",
"V172", "V173", "V174"))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.