Nothing
predict.coxr <- function(object, newdata, ...) {
if ( !inherits(object, "coxr") ) {
stop("use only with \"coxr\" objects")
}
beta = object$coef
if ( length(object$skip) > 0 ) {
beta[object$skip] = 0
}
if ( missing(newdata) ) {
predictor <- as.vector(object$x %*% beta)
} else {
predictor <- as.vector(newdata %*% beta)
}
predictor
}
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.