coverage for checking of failed fits

[shug0131]

In the print.rpsftm.coxph and print.rpsftm.survreg, I need to find some data where convergence is not acheived, so as to call the lines if (!is.null(x$fail) ). This creates <100% coverage .