ChainLadder (version 0.1.1-1)

summary.MackChainLadder: ~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

summary.MackChainLadder(MackModel)

Arguments

MackModel

~~Describe MackModel here~~

Value

• ~Describe the value returned If it is a LIST, use
• comp1
  Description of 'comp1'
• comp2
  Description of 'comp2'

Details

~~ If necessary, more details than the description above ~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (MackModel) 
{
    .Triangle <- MackModel[["Triangle"]]
    n <- ncol(.Triangle)
    m <- nrow(.Triangle)
    Latest <- rev(.Triangle[row(as.matrix(.Triangle)) == (m + 
        1 - col(as.matrix(.Triangle)))])
    Ultimate <- MackModel[["FullTriangle"]][, n]
    Dev.To.Date <- Latest/Ultimate
    Reserve <- Ultimate - Latest
    Mack.S.E <- MackModel[["Mack.S.E"]][, n]
    Mack.S.E.Ratio <- Mack.S.E/(Ultimate - Latest)
    myResult <- data.frame(Latest, Dev.To.Date, Ultimate, Reserve, 
        Mack.S.E, Mack.S.E.Ratio)
    return(myResult)
  }