R/confint.coxphw.r

In coxphw: Weighted Estimation in Cox Regression

confint.coxphw <- function(object, parm, level = 0.95, ...)
{
  if (!is.null(object$betafix)) { 
    cat(paste("The following variables were not estimated in this model",               
              paste(names(object$coefficients)[!is.na(object$betafix)], collapse=", "), 
              "\n\n"), sep="") }    
  return(confint.default(object, ...))
}