if (FALSE) {
data(liab)
fit.liab <- MultiChainLadder(liab)
# generate diagonostic plots
par(mfcol=(c(3,2)))
plot(fit.liab,which.plot=1:2)
par(mfrow=(c(2,2)))
plot(fit.liab,which.plot=3:4)
plot(fit.liab,which.triangle=1,which.plot=5)
graphics.off()
}
Run the code above in your browser using DataLab