Tower model

A frequency above the lowest threshold and a piecewise_pareto severity that reproduce a reinsurance tower (match_tower()), a PML curve (fit_pml_curve()) or a set of references (fit_references()). Properties: m@frequency, m@severity. Supports excess_frequency() and layer() (expected loss a year).

Usage

tower_model(ptr)

Arguments

ptr

A TowerModel pointer; use the fitting functions instead.

Value

A tower_model object.

Examples

m <- match_tower(c(1000, 1500, 2000), c(100, 90, 120), frequencies = c(0.25, NA, NA))
layer(m, 500, 1500)
#> [1] 90
m@severity
#> <piecewise_pareto> 5 pieces
#>          t      alpha
#> 1 1000.000  2.3744342
#> 2 1097.020  0.1993568
#> 3 1500.000  0.1708059
#> 4 1944.575 15.4835498
#> 5 2000.000  2.9452578