data-raw/prep_mf_trend_data.R

In PublicHealthEngland/hcaidcs: R functions for the mandatory surveillance of bacteraemia and C. difficile infection

mf_trend_data <-
  data.frame(
          year = c(2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014, 2014,
                   2014, 2014, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015,
                   2015, 2015, 2015, 2015),
         month = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8,
                   9, 10, 11, 12),
           cdi = c(996, 913, 1098, 1042, 1214, 1193, 1354, 1328, 1296, 1230,
                   1078, 1058, 1129, 1051, 1218, 1164, 1253, 1235, 1349, 1270,
                   1392, 1269, 1173, 1092),
         ecoli = c(2878, 2625, 2877, 2873, 3025, 2988, 3207, 3234, 3035, 3085,
                   2907, 2857, 2865, 2702, 2941, 2924, 3052, 3193, 3373, 3351,
                   3363, 3308, 3166, 3077),
          mrsa = c(70, 59, 77, 49, 64, 68, 65, 53, 64, 61, 55, 99, 79, 65, 78,
                   76, 73, 60, 55, 86, 61, 70, 65, 68),
          mssa = c(803, 764, 837, 792, 772, 753, 799, 782, 840, 876, 798, 907,
                   874, 743, 909, 850, 851, 866, 891, 856, 876, 887, 855, 930),
          kleb = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
                   NA, NA, NA, NA, NA, NA, NA, NA, NA),
          paer = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
                   NA, NA, NA, NA, NA, NA, NA, NA, NA),
      ecoli_ta = c(644, 601, 636, 615, 603, 584, 641, 624, 620, 641, 612, 593,
                   616, 581, 650, 625, 598, 635, 646, 655, 665, 709, 657, 587)
  )

mf_trend_data$t <- as.Date(
  paste0("01/", mf_trend_data$month, "/", mf_trend_data$year), "%d/%m/%Y")
usethis::use_data(mf_trend_data, overwrite = TRUE)