bstraub
computes structure parameters estimators in the
B�hlmann-Straub credibility model and predict.bstraub
computes
the credibility premiums.bstraub(ratios, weights,
heterogeneity = c("iterative", "unbiased"),
TOL = 1e-06, echo = FALSE)## S3 method for class 'bstraub':
print(x, \dots)
## S3 method for class 'bstraub':
predict(object, \dots)
## S3 method for class 'bstraub':
summary(object, \dots)
## S3 method for class 'summary.bstraub':
print(x, \dots)
"iterative"
for the
Bischel-Straub estimator; "unbiased"
for the usual
B�hlmann-Straub estimator (see below)."bstraub"
.summary
method; further arguments to
print
for the print.summary
method;
unused for the print
and <bstraub
, an object of class
"bstraub"
. An object of class "bstraub"
is a list with the following
components:
"Buhlmann"
or
"Buhlmann-Straub"
);predict.bstraub
, a vector of credibility premiums.heterogeneity =
"unbiased"
) of the between contracts heterogeneity parameter is
$$\hat{a} = c \left( \sum_{i = 1}^I w_{i\cdot} (X_{iw} - X_{ww})^2 -
(I - 1)\hat{s}^2 \right),$$
where $c = w_{\cdot\cdot}/(w_{\cdot\cdot}^2 - \sum_{i = 1}^I
w_{i\cdot}^2)$ and $I$ is the
number of contracts. The Bishel-Straub pseudo-estimator (heterogeneity =
"iterative"
) is obtained recursively as the solution of
$$\hat{a} = \frac{1}{I - 1} \sum_{i=1}^I z_i (X_{iw} - X_{zw})^2.$$
The fixed point algorithm is used with a relative error of TOL
as stopping criteria.
Missing data are represented by NA
in both the matrix of ratios
and the matrix of weights. The function can cope with complete lines
of NA
in case a contract has no experience.
bstraub
computes the structure parameters estimators and
returns an object of class "bstraub"
. The method of
summary
for such objects displays further
details and the method of predict
computes the
credibility premiums.
Goovaerts, M. J. and Kaas, R. and van Heerwaarden, A. E. and Bauwelinckx, T. (1990), Effective actuarial methods, North-Holland.
cm
for more general credibility models.data(hachemeister)
## Credibility premiums calculated with the iterative estimator
fit <- bstraub(hachemeister[, 2:13], hachemeister[, 14:25])
fit # print method
summary(fit) # more details
predict(fit) # credibility premiums
Run the code above in your browser using DataLab