# Clark LDF method

### Description

Analyze loss triangle using Clark's LDF (loss development factor) method.

### Usage

1 2 3 |

### Arguments

`Triangle` |
A loss triangle in the form of a matrix. The number of columns must be at least four; the number of rows may be as few as 1. The column names of the matrix should be able to be interpreted as the "age" of the losses in that column. The row names of the matrix should uniquely define the year of origin of the losses in that row. Losses may be inception-to-date or incremental. The "ages" of the triangle can be "phase shifted" –
i.e., the first age need not be as at the end of the origin period.
(See the Examples section.)
Nor need the "ages" be uniformly spaced.
However, when the ages are not uniformly spaced,
it would be prudent to specify the |

`cumulative` |
If |

`maxage` |
The "ultimate" age to which losses should be projected. |

`adol` |
If |

`adol.age` |
Only pertinent if |

`origin.width` |
Only pertinent if |

`G` |
A |

### Details

Clark's "LDF method" assumes that the
incremental losses across development periods in a loss triangle
are independent.
He assumes that the expected value of an incremental loss is
equal to the *theoretical* expected ultimate loss (**U**)
(by origin year)
times the change in the *theoretical*
underlying growth function over the development period.
Clark models the growth function, also called the percent of ultimate,
by either the loglogistic function (a.k.a., "the inverse power curve")
or the weibull function.
Clark completes his incremental loss model
by wrapping the expected values within an
overdispersed poisson (ODP) process where
the "scale factor"
sigma^2
is assumed to be a known constant for all
development periods.

The parameters of Clark's "LDF method" are therefore:
U,
and
omega
and
theta
(the parameters of the **loglogistic** and **weibull** growth functions).
Finally, Clark uses maximum likelihood to parameterize his model,
uses the ODP process to estimate process risk, and
uses the Cramer-Rao theorem and the "delta method" to estimate parameter risk.

Clark recommends inspecting the residuals to help assess the
reasonableness of the model relative to the actual data
(see `plot.clark`

below).

### Value

A `list`

of class "ClarkLDF" with the components listed below.
("Key" to naming convention: all caps represent parameters;
mixed case represent origin-level amounts;
all-lower-case represent observation-level (origin, development age) results.)

`method` |
"LDF" |

`growthFunction` |
name of the growth function |

`Origin` |
names of the rows of the triangle |

`CurrentValue` |
the most mature value for each row |

`CurrentAge` |
the most mature "age" for each row |

`CurrentAge.used` |
the most mature age used; differs from "CurrentAge" when adol=TRUE |

`MAXAGE` |
same as 'maxage' argument |

`MAXAGE.USED` |
the maximum age for development from the average date of loss; differs from MAXAGE when adol=TRUE |

`FutureValue` |
the projected loss amounts ("Reserves" in Clark's paper) |

`ProcessSE` |
the process standard error of the FutureValue |

`ParameterSE` |
the parameter standard error of the FutureValue |

`StdError` |
the total standard error (process + parameter) of the FutureValue |

`Total` |
a |

`PAR` |
the estimated parameters |

`THETAU` |
the estimated parameters for the "ultimate loss" by origin year ("U" in Clark's notation) |

`THETAG` |
the estimated parameters of the growth function |

`GrowthFunction` |
value of the growth function as of the CurrentAge.used |

`GrowthFunctionMAXAGE` |
value of the growth function as of the MAXAGE.used |

`SIGMA2` |
the estimate of the sigma^2 parameter |

`Ldf` |
the "to-ultimate" loss development factor (sometimes called the "cumulative development factor") as defined in Clark's paper for each origin year |

`LdfMAXAGE` |
the "to-ultimate" loss development factor as of the maximum age used in the model |

`TruncatedLdf` |
the "truncated" loss development factor for developing the current diagonal to the maximum age used in the model |

`FutureValueGradient` |
the gradient of the FutureValue function |

`origin` |
the origin year corresponding to each observed value of incremental loss |

`age` |
the age of each observed value of incremental loss |

`fitted` |
the expected value of each observed value of incremental loss (the "mu's" of Clark's paper) |

`residuals` |
the actual minus fitted value for each observed incremental loss |

`stdresid` |
the standardized residuals for each observed incremental loss (= residuals/sqrt(sigma2*fitted), referred to as "normalized residuals" in Clark's paper; see p. 62) |

`FI` |
the "Fisher Information" matrix as defined in Clark's paper (i.e., without the sigma^2 value) |

`value` |
the value of the loglikelihood function at the solution point |

`counts` |
the number of calls to the loglikelihood function and its gradient function when numerical convergence was achieved |

### Author(s)

Daniel Murphy

### References

Clark, David R.,
"LDF Curve-Fitting and Stochastic Reserving: A Maximum Likelihood Approach",
*Casualty Actuarial Society Forum*, Fall, 2003
http://www.casact.org/pubs/forum/03fforum/03ff041.pdf

### See Also

`ClarkCapeCod`

### Examples

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 | ```
X <- GenIns
ClarkLDF(X, maxage=20)
# Clark's "LDF method" also works with triangles that have
# more development periods than origin periods
ClarkLDF(qincurred, G="loglogistic")
# Method also works for a "triangle" with only one row:
# 1st row of GenIns; need "drop=FALSE" to avoid becoming a vector.
ClarkLDF(GenIns[1, , drop=FALSE], maxage=20)
# The age of the first evaluation may be prior to the end of the origin period.
# Here the ages are in units of "months" and the first evaluation
# is at the end of the third quarter.
X <- GenIns
colnames(X) <- 12 * as.numeric(colnames(X)) - 3
# The indicated liability increases from 1st example above,
# but not significantly.
ClarkLDF(X, maxage=240)
# When maxage is infinite, the phase shift has a more noticeable impact:
# a 4-5% increase of the overall CV.
x <- ClarkLDF(GenIns, maxage=Inf)
y <- ClarkLDF(X, maxage=Inf)
# Percent change in the bottom line CV:
(tail(y$Table65$TotalCV, 1) - tail(x$Table65$TotalCV, 1)) / tail(x$Table65$TotalCV, 1)
``` |