Group loss data by occurrence ID.

group_by_occurrence(dat)

Arguments

dat

loss_data by claim ID

Value

data grouped by occurrence

Examples

if (FALSE) {
dat <- readRDS("data/shiny-data.rds") %>%
  filter(
    eval_dt == as.Date("2018-12-31"),
    member == "Ace Endico Corporation"
  )
test <- by_occurrence(dat)
}