data-raw/testdata-outcome_fixer.R

In JayAchar/tbcleanr: tbcleanr: tools for cleaning TB datade

# testdata for outcome_fixer()

k6 <- structure(
  list(
    registrationnb = c(
      "XYZ1",
      "XYZ2",
      "XYZ3",
      "XYZ4",
      "XYZ5",
      "XYZ6",
      "XYZ7",
      "XYZ8",
      "XYZ9",
      "XYZ10",
      "XYZ11",
      "XYZ12",
      "XYZ13",
      "XYZ14",
      "XYZ15",
      "XYZ16",
      "XYZ17",
      "XYZ18",
      "XYZ19",
      "XYZ20",
      "XYZ21",
      "XYZ22",
      "XYZ23",
      "XYZ24",
      "XYZ25",
      "XYZ26",
      "XYZ27",
      "XYZ28",
      "XYZ29",
      "XYZ30",
      "XYZ31",
      "XYZ32",
      "XYZ33",
      "XYZ34",
      "XYZ35",
      "XYZ36",
      "XYZ37",
      "XYZ38",
      "XYZ39",
      "XYZ40",
      "XYZ41",
      "XYZ42",
      "XYZ43",
      "XYZ44",
      "XYZ45",
      "XYZ46",
      "XYZ47",
      "XYZ48",
      "XYZ49",
      "XYZ50",
      "XYZ51",
      "XYZ52",
      "XYZ53",
      "XYZ54",
      "XYZ55",
      "XYZ56",
      "XYZ57",
      "XYZ58",
      "XYZ59",
      "XYZ60",
      "XYZ61",
      "XYZ62",
      "XYZ63",
      "XYZ64",
      "XYZ65",
      "XYZ66",
      "XYZ67",
      "XYZ68",
      "XYZ69",
      "XYZ70",
      "XYZ71",
      "XYZ72",
      "XYZ73",
      "XYZ74",
      "XYZ75",
      "XYZ76",
      "XYZ77",
      "XYZ78",
      "XYZ79",
      "XYZ80",
      "XYZ81",
      "XYZ82",
      "XYZ83",
      "XYZ84",
      "XYZ85",
      "XYZ86",
      "XYZ87",
      "XYZ88",
      "XYZ89",
      "XYZ90",
      "XYZ91",
      "XYZ92",
      "XYZ93",
      "XYZ94",
      "XYZ95",
      "XYZ96",
      "XYZ97",
      "XYZ98",
      "XYZ99",
      "XYZ100",
      "XYZ101",
      "XYZ102",
      "XYZ103",
      "XYZ104",
      "XYZ105",
      "XYZ106",
      "XYZ107",
      "XYZ108",
      "XYZ109",
      "XYZ110",
      "XYZ111",
      "XYZ112",
      "XYZ113",
      "XYZ114",
      "XYZ115",
      "XYZ116",
      "XYZ117",
      "XYZ118",
      "XYZ119",
      "XYZ120",
      "XYZ121",
      "XYZ122",
      "XYZ123",
      "XYZ124",
      "XYZ125",
      "XYZ126",
      "XYZ127",
      "XYZ128",
      "XYZ129",
      "XYZ130",
      "XYZ131",
      "XYZ132",
      "XYZ133",
      "XYZ134",
      "XYZ135",
      "XYZ136",
      "XYZ137",
      "XYZ138",
      "XYZ139",
      "XYZ140",
      "XYZ141",
      "XYZ142",
      "XYZ143",
      "XYZ144",
      "XYZ145",
      "XYZ146",
      "XYZ147",
      "XYZ148",
      "XYZ149",
      "XYZ150",
      "XYZ151",
      "XYZ152",
      "XYZ153",
      "XYZ154",
      "XYZ155",
      "XYZ156",
      "XYZ157",
      "XYZ158",
      "XYZ159",
      "XYZ160",
      "XYZ161",
      "XYZ162"
    ),
    outfirst = c(
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L,
      0L,
      1L,
      2L,
      3L,
      4L,
      5L,
      6L,
      7L,
      8L
    ),
    outfirst2013 = c(
      0L,
      0L,
      0L,
      0L,
      0L,
      0L,
      0L,
      0L,
      0L,
      1L,
      1L,
      1L,
      1L,
      1L,
      1L,
      1L,
      1L,
      1L,
      2L,
      2L,
      2L,
      2L,
      2L,
      2L,
      2L,
      2L,
      2L,
      3L,
      3L,
      3L,
      3L,
      3L,
      3L,
      3L,
      3L,
      3L,
      4L,
      4L,
      4L,
      4L,
      4L,
      4L,
      4L,
      4L,
      4L,
      5L,
      5L,
      5L,
      5L,
      5L,
      5L,
      5L,
      5L,
      5L,
      6L,
      6L,
      6L,
      6L,
      6L,
      6L,
      6L,
      6L,
      6L,
      7L,
      7L,
      7L,
      7L,
      7L,
      7L,
      7L,
      7L,
      7L,
      8L,
      8L,
      8L,
      8L,
      8L,
      8L,
      8L,
      8L,
      8L,
      0L,
      0L,
      0L,
      0L,
      0L,
      0L,
      0L,
      0L,
      0L,
      1L,
      1L,
      1L,
      1L,
      1L,
      1L,
      1L,
      1L,
      1L,
      2L,
      2L,
      2L,
      2L,
      2L,
      2L,
      2L,
      2L,
      2L,
      3L,
      3L,
      3L,
      3L,
      3L,
      3L,
      3L,
      3L,
      3L,
      4L,
      4L,
      4L,
      4L,
      4L,
      4L,
      4L,
      4L,
      4L,
      5L,
      5L,
      5L,
      5L,
      5L,
      5L,
      5L,
      5L,
      5L,
      6L,
      6L,
      6L,
      6L,
      6L,
      6L,
      6L,
      6L,
      6L,
      7L,
      7L,
      7L,
      7L,
      7L,
      7L,
      7L,
      7L,
      7L,
      8L,
      8L,
      8L,
      8L,
      8L,
      8L,
      8L,
      8L,
      8L
    ),
    `2013outcome` = structure(
      c(
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA,
        NA
      ),
      .Label = "est 1 outcome 2013",
      class = "factor"
    )
  ),
  out.attrs = list(
    dim = c(
      outfirst = 9L,
      outfirst2013 = 9L,
      `2013outcome` = 2L
    ),
    dimnames = list(
      outfirst = c(
        "outfirst=0",
        "outfirst=1",
        "outfirst=2",
        "outfirst=3",
        "outfirst=4",
        "outfirst=5",
        "outfirst=6",
        "outfirst=7",
        "outfirst=8"
      ),
      outfirst2013 = c(
        "outfirst2013=0",
        "outfirst2013=1",
        "outfirst2013=2",
        "outfirst2013=3",
        "outfirst2013=4",
        "outfirst2013=5",
        "outfirst2013=6",
        "outfirst2013=7",
        "outfirst2013=8"
      ),
      `2013outcome` = c("2013outcome=est 1 outcome 2013", "2013outcome=NA")
    )
  ),
  row.names = c(NA,-162L),
  class = c("koch6", "data.frame")
)

saveRDS(k6, "inst/testdata/outcome_k6.rds", version = 2)




# EpiInfo -----------------------------------------------------------------

epi <- structure(
  list(
    APID = c(
      "XYZ1",
      "XYZ2",
      "XYZ3",
      "XYZ4",
      "XYZ5",
      "XYZ6",
      "XYZ7",
      "XYZ8",
      "XYZ9"
    ),
    RES = 0:8
  ),
  class = c("epiinfo", 
            "data.frame"),
  row.names = c(NA,-9L)
)

saveRDS(epi, "inst/testdata/outcome_epi.rds", version = 2)