Description Arguments Details Value See Also Examples
A generic function to plot and/or return a table of predicted age-to-age loss development factors (or link ratios).
object |
The object from which to plot and/or return loss development factors. |
cex.text |
The |
linespace |
Adjusts the spacing between observed and predicted values. |
plot |
A logical value. If |
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')
.
Mainly called for the side effect of plotting. Also returns a numeric matrix of plotted statistics.
lossDevelopmentFactors("AnnualAggLossDevModelOutput")
tailFactor
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | 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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.