# SCCS @(#)predict.survreg.penal.s 1.1 11/30/98 # # This routine just stops disastrous arithmetic for models with sparse # terms. A placeholder until the proper sparse terms actions are inserted. # predict.survreg.penal <- function(object, ...) { pterms <- object$pterms if (any(pterms==2)) stop("Predictions not available for sparse models") NextMethod('predict') }