R/print.rh.R

In ilc: Lee-Carter Mortality Models using Iterative Fitting Algorithms

print.rh <-
function(x, ...){
    cat('\n', paste(rep('-', 60), collapse=''))
    cat('\n\t Iterative Lee-Carter Family Regression:')
    cat('\n\t Fitted Model:', x$model)
    cat('\n', paste(rep('-', 60), collapse=''))
    cat('\n Call:', deparse(x$call), fill=T)
    cat(' Error Structure:', x$adjust)
    cat('\n Data Source:', x$label, sqb(names(x)[4]), 'over')
    cat('\n   calendar years:', rb(str.range(x$year)), 'and ages:', 
        rb(str.range(x$age)))
    cat('\n Deviance convergence in:', x$conv.iter, 'iterations\n')
    print(structure(list(dev=x$mdev, df=x$df), class='coef'))
}