Ceded loss per event — ceded_by

Takes one year's losses as chronological: the annual deductible absorbs the first recoveries and the annual limit stops the last ones. The entries sum to ceded().

Usage

ceded_by_event(layer, losses, ...)

Arguments

layer: An xol_layer.
losses: Numeric vector of one year's losses, in time order.
...: Unused; for methods.

Value

A numeric vector, one entry per loss.

Examples

l <- xol_layer("L", 10, 5, aggregate_deductible = 4, aggregate_limit = 15)
ceded_by_event(l, c(8, 20, 12))
#> [1] 0 9 6