You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
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
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,])
The text was updated successfully, but these errors were encountered: