# This routine just stops disastrous arithmetic for models with sparse
# terms. A placeholder until the proper sparse terms actions are inserted.
residuals.survreg.penal <- function(object, ...) {
pterms <- object$pterms
if (any(pterms==2))
stop("Residualss not available for sparse models")
NextMethod('residuals')
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.