df <- data.frame(A1 = 1, B1 = 1, A2 = 1, B2 = 1, A3 = 1, B3 = 1)
aggregate_model(df, aggregate_to = "incidence",
compartments = c("A", "B"), strat = 3,
summary_var = TRUE)
Run the code above in your browser using DataLab