loading ebola si

[wzmli]

Please include a brief description of the issue and any proposed solutions you may have.

Error message:
Error in is_epidist_params(prob_dist, prob_dist_params) :
Assertion on 'prob_dist_params' failed: Must have unique names, but element 3 is duplicated.
Calls: as_epidist ... is_epidist_params -> -> makeAssertion -> mstop

Code:

ebola_data <- epireview::load_epidata("ebola")

ebola_si <- (ebola_data$params
%>% filter(parameter_type == "Human delay - serial interval")
%>% filter(distribution_type == "Gamma")
)

print(as.data.frame(ebola_si[1,]))

epiobj <- as_epidist(ebola_si[1,])

Here is a zoomed in version.

Some parameter_data_id worked and some doesn't.

ebola_si <- (ebola_data$params
%>% filter(parameter_type == "Human delay - serial interval")
%>% filter(parameter_data_id == "5c8d68c39d1c3b9870ecaaff0280d02e") ## failed
)

epiobj <- as_epidist(ebola_si[1,])

Here is an parameter_data_id that works:

ebola_si <- (ebola_data$params
%>% filter(parameter_type == "Human delay - serial interval")
%>% filter(parameter_data_id == "0c3e02f80addfccc1017fa619fba76c5") ## work
)

epiobj <- as_epidist(ebola_si[1,])