Ceded loss of each layer in a tower for one year

Ceded loss of each layer in a tower for one year

Usage

tower_ceded(tower, losses)

Arguments

tower

A reinsurance_tower.

losses

Numeric vector of one year's losses, in time order.

Value

A named numeric vector, one entry per layer.

Examples

tw <- reinsurance_tower(list(xol_layer("5x5", 5, 5), xol_layer("10x10", 10, 10)))
tower_ceded(tw, c(7, 30))
#>   5x5 10x10 
#>     7    10