exposed0 <- structure(list(Year2017 = c(6078.14, 5841.78, 5575.70, 5726.18, 5458.21, 5197.56,
5018.12, 4791.56, 4245.15, 4321.65, 4179.3),
Year2018 = c(5978.73, 5473.78, 5572.23, 5495.19, 5148.47, 4845.14,
4739.54, 4222.01, 4476.99, 4306.45, 4108.58),
Year2019 = c(5593.23, 5551.41, 5260.44, 5079.56, 4873.37, 4857.78,
4536.12, 4453.85, 4310.89, 4015.02, 3974.25)),
class = "data.frame", row.names = 68:78)
deaths0 <- structure(list(Year2017 = c(144, 102, 113, 122, 156, 110, 126, 132, 120, 172, 110),
Year2018 = c(111, 122, 109, 116, 162, 154, 115, 146, 100, 169, 146),
Year2019 = c(100, 123, 113, 151, 122, 110, 137, 175, 137, 110, 155)),
class = "data.frame", row.names = 68:78)
exposed <- deaths <- array(NA, dim = c(11, 3, 5))
set.seed(123)
for (kk in 1:5){
exposed[, , kk] <- as.matrix(exposed0) +
matrix(runif(33, 0, 100), nrow = 11, ncol = 3)
deaths[, , kk] <- as.matrix(deaths0) +
matrix(runif(33, 0, 5), nrow = 11, ncol = 3)
}
dimnames(exposed) <- dimnames(deaths) <- list(68:78,
paste0("Y", 2017:2019),
paste0("I", 1:5))
example <- tw_crude_mx(exposed = exposed, deaths = deaths, dim1.window = 2,
dim2.window = 1, dim3.window = 1, initial = FALSE)
Run the code above in your browser using DataLab