https://github.com/cran/coxrobust
Tip revision: fc209a6a2ac5055c14dced7fa571148c6b9e743b authored by Filip Borowicz on 05 March 2006, 00:00:00 UTC
version1.0
version1.0
Tip revision: fc209a6
predict.coxr.R
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
}