Nothing
# $Id $
residuals.coxph.null <-
function(object, type=c("martingale", "deviance", "score", "schoenfeld"),
collapse=FALSE, weighted=FALSE, ...)
{
type <- match.arg(type)
if (type=='martingale' || type=='deviance') NextMethod()
else stop(paste("\'", type, "\' residuals are not defined for a null model",
sep=""))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.