data-raw/hosp_network_data.R

In npeters1322/hospEpi: Perform Basic Hospital Epidemiology Tasks

hosp_network_data <- data.frame(UniqueEncountID = c(1,1,1,2,2,3,4,4,4,4,5,5,5,5,5,5),
                                    BeginDate = c("2022-01-02 01:23:45", "2022-01-03 13:24:20",
                                                  "2022-01-03 13:21:34", "2022-01-04 11:31:17",
                                                  "2022-01-07 09:13:05", "2022-01-05 13:04:06",
                                                  "2022-01-03 12:43:15", "2022-01-04 08:14:15",
                                                  "2022-01-05 16:06:20", "2022-01-06 15:44:01",
                                                  "2022-01-05 11:21:09", "2022-01-05 15:41:32",
                                                  "2022-01-06 07:30:34", "2022-01-08 12:16:58",
                                                  "2022-01-10 10:05:48", "2022-01-11 08:40:12"),
                                    EndDate = c("2022-01-03 13:21:34", "2099-01-01 00:00:00",
                                                "2022-01-06 16:10:12", "2022-01-07 09:13:05",
                                                "2022-01-10 12:14:27", "2022-01-08 14:51:23",
                                                "2022-01-04 08:14:15", "2022-01-05 16:06:20",
                                                "2022-01-06 15:44:01", "2022-01-09 13:52:07",
                                                "2022-01-05 15:41:32", "2022-01-06 07:30:34",
                                                "2022-01-08 12:16:58", "2022-01-10 10:05:48",
                                                "2022-01-11 08:40:12", "2022-01-13 14:15:16"),
                                    UnitName = c("1A", "2B", "2B", "3A", "4D", "3B", "1B", "2B",
                                                 "2B", "3C", "1C", "1C", "1C", "2A", "2A", "2B"),
                                    RoomNumber = c("1A30", "2B20", "2B20", "3A10", "4D15", "3B18",
                                                   "1B13", "2B18", "2B20", "3C4", "1C10", "1C12",
                                                   "1C10", "2A12", "2A14", "2B3"))

usethis::use_data(hosp_network_data, compress = "xz")