Nothing
predict.coxphms <- function(object, newdata,
type=c("lp", "risk", "expected", "terms", "survival"),
se.fit=FALSE, na.action=na.pass,
terms=names(object$assign), collapse,
reference=c("strata", "sample"), ...) {
# if type="lp" and newdata is missing, we can use the linear.predictor
# component, but otherwise the code is not yet written
type <- match.arg(type)
if (missing(newdata) && (type %in% c("lp", "risk"))) NextMethod()
else stop("predict method not yet available for multistate coxph")
}
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.