error using time varying contact matrices

[slwu89]

Hi, just wondering if I am doing something incorrectly when using parameters_explicit_SEEIR. Here is a minimal example with the error I am encountering:

> mix_mat <- matrix(rexp(17^2), 17, 17)
> mix_mat2 <- matrix(rexp(17^2), 17, 17)
> parameters_explicit_SEEIR(country = "Algeria", contact_matrix_set = list(mix_mat, mix_mat2), tt_contact_matrix = c(0, 5), time_period = 10)
Error in vapply(seq(population), function(x) { : 
  values must be length 17,
 but FUN(X[[1]]) result is length 18