lossDevelopmentFactors {BALD} R Documentation

## A generic function to plot and/or return a table of predicted age-to-age loss development factors (or link ratios).

### Description

A generic function to plot and/or return a table of predicted age-to-age loss development factors (or link ratios).

### Arguments

 `object` The object from which to plot and/or return loss development factors. `cex.text` The `cex` value supplied to `text`. Adjusts the relative size of text. `linespace` Adjusts the spacing between observed and predicted values. `plot` A logical value. If `TRUE`, the plot is generated and the statistics are returned; otherwise only the statistics are returned.

### Details

While the model estimates ultimate losses directly, comparisons of predicted to observed development factors can give the user a better feel for the model's adequacy. Since the model is Bayesian, each development factor comes as a distribution. Only the median, as a point estimate, are plotted/returned.

The age-to-age factors are the ratios of the cumulative paid values at one period to the previous period. Note that the median of products is not the product of medians, and thus it is possible (or rather likely) that age-to-age factors will not line up with age-to-ultimate factors (see `tailFactor`). See `vignette('BALD')`.

### Value

Mainly called for the side effect of plotting. Also returns a numeric matrix of plotted statistics.

`lossDevelopmentFactors("AnnualAggLossDevModelOutput")` `tailFactor`

### Examples

```rm(list=ls())
library(BALD)
data(IncrementalGeneralLiablityTriangle)
IncrementalGeneralLiablityTriangle <- as.matrix(IncrementalGeneralLiablityTriangle)
print(IncrementalGeneralLiablityTriangle)
data(PCE)
PCE <- as.matrix(PCE)[,1]
PCE.rate <- PCE[-1] / PCE[-length(PCE)] - 1
PCE.rate.length <- length(PCE.rate)
PCE.years <- as.integer(names(PCE.rate))
years.available <- PCE.years <= max(as.integer(
dimnames(IncrementalGeneralLiablityTriangle)[]))
PCE.rate <- PCE.rate[years.available]
PCE.rate.length <- length(PCE.rate)
standard.model.input <- makeStandardAnnualInput(
incremental.payments = IncrementalGeneralLiablityTriangle,
stoch.inflation.weight = 1,
non.stoch.inflation.weight = 0,
stoch.inflation.rate = PCE.rate,
exp.year.type = 'ay',
extra.dev.years=5,
use.skew.t=TRUE)
## Not run:
standard.model.output <- runLossDevModel(
standard.model.input,
burnIn=30.0E+3,
sampleSize=30.0E+3,
thin=10)
lossDevelopmentFactors(standard.model.output)

## End(Not run)```

[Package BALD version 1.0.0-3 Index]