Group loss data by occurrence ID.
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)
}