Renders the number of individuals with each dose in each age bin (cross tabulated doses and ages). This only renders output on timesteps that correspond to a day. See examples for how to quickly summarize the output.
dose_age_render_process_daily(renderer, age, dose, parameters, dt)
a Render
object
a IntegerVariable
object
a IntegerVariable
object
model parameters
size of time step
if (FALSE) {
# if the renderer object is called dose_age_renderer
tmp <- as.data.table(dose_age_renderer$to_dataframe())
tmp <- melt(tmp,id.vars="timestep")
tmp1 <- tmp[, tstrsplit(variable, "_", keep = c(2, 4))]
tmp[ , variable := NULL]
tmp <- cbind(tmp, tmp1)
setnames(x = tmp,old = c("V1", "V2"),new = c("dose","age"))
dose_dt <- tmp[, .(value = sum(value)), by = .(dose, timestep)]
}