R/DiscreteEpidemicDensity.R

In JMacDonaldPhD/COVID19UK:

# Discrete Epidemic Density




epidemicDensity <- function(epidemic, simParam){
  # What was the probability of the events which happened, given the epidemic state on that day

  for(i in 1:ncol(epidemic$SIRsummary)){

  }


}