R/predict.survreg.penal.R

Defines functions predict.survreg.penal

Documented in predict.survreg.penal

# $Id: predict.survreg.penal.S 11166 2008-11-24 22:10:34Z therneau $
#
# 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')
    }

Try the survival package in your browser

Any scripts or data that you put into this service are public.

survival documentation built on Aug. 24, 2021, 5:06 p.m.