
MackChainLadder
.MunichChainLadder(Paid, Incurred,
est.sigmaP = "log-linear", est.sigmaI = "log-linear",
tailP=FALSE, tailI=FALSE)
est.sigma
in MackChainLadder
for
more details, as est.sigmaP
gets passed on to
MackChain
est.sigma
in MackChainLadder
for
more details, as est.sigmaI
is passed on to
MackCha
Paid
triangle is estimated and
is passed on to MackChainLadder
, see tail
just there.Incurred
triangle is estimated and
is passed on to MackChainLadder
, see tail
just there.summary.MunichChainLadder
,
plot.MunichChainLadder
,
MackChainLadder
MCLpaid
MCLincurred
op <- par(mfrow=c(1,2))
plot(MCLpaid)
plot(MCLincurred)
par(op)
# Following the example in Quarg's (2004) paper:
MCL <- MunichChainLadder(MCLpaid, MCLincurred, est.sigmaP=0.1, est.sigmaI=0.1)
MCL
plot(MCL)
# You can access the standard chain ladder (Mack) output via
MCL$MackPaid
MCL$MackIncurred
# Input triangles section 3.3.1
MCL$Paid
MCL$Incurred
# Parameters from section 3.3.2
# Standard chain ladder age-to-age factors
MCL$MackPaid$f
MCL$MackIncurred$f
MCL$MackPaid$sigma
MCL$MackIncurred$sigma
# Check Mack's assumptions graphically
plot(MCL$MackPaid)
plot(MCL$MackIncurred)
MCL$q.f
MCL$rhoP.sigma
MCL$rhoI.sigma
MCL$PaidResiduals
MCL$IncurredResiduals
MCL$QinverseResiduals
MCL$QResiduals
MCL$lambdaP
MCL$lambdaI
# Section 3.3.3 Results
MCL$MCLPaid
MCL$MCLIncurred
Run the code above in your browser using DataLab