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.

See Also

lossDevelopmentFactors("AnnualAggLossDevModelOutput") tailFactor

Examples

rm(list=ls())
options(device.ask.default=FALSE)
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)[[1]]))
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]