Initial prototyping for a tidy approach for loss reserving
library(tidyverse)
library(rsvr)
data <- ChainLadder::ABC %>%
as.data.frame() %>%
as_tibble() %>%
mutate(
origin = as.integer(origin),
dev = as.integer(dev),
type = "paid_loss",
segment = "west-auto",
currency = "USD",
origin_interval = 1,
dev_interval = 1
)
mack_spec <- mack_chain_ladder()
mack_spec
result <- mack_spec %>%
fit(data)
result
Here is a rough outline of what an actuary would go through in a typical reserving analysis on a periodical base.
loss payments
, lae payments
, case reserves
,
transaction date
, accident date
at a minimumpaid triangle
,
incurred triangle
, reported counts triangle
, closed counts
triangle
, etcCalifornia triangle
vs
New York triangle
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.