Merge pull request #335 from HeidiSeibold/master

Allow for survfit(..., conf.type = "none")

R/surv_summary.R

@@ -58,8 +58,10 @@ surv_summary <- function (x, data = NULL){
  ncurve <- ncol(x$surv)
  res <- data.frame(time = rep(x$time, ncurve), n.risk = rep(x$n.risk, ncurve),
  n.event = rep(x$n.event, ncurve), n.censor = rep(x$n.censor, ncurve))
- res <- cbind(res, surv = .flat(x$surv), std.err = .flat(x$std.err),
- upper = .flat(x$upper), lower = .flat(x$lower))
+ res <- cbind(res, surv = .flat(x$surv),
+ std.err = ifelse(is.null(x$std.err), NA, .flat(x$std.err)),
+ upper = ifelse(is.null(x$upper), NA, .flat(x$upper)),
+ lower = ifelse(is.null(x$lower), NA, .flat(x$lower)))
  res$strata <- as.factor(rep(colnames(x$surv), each = nrow(x$surv)))
  }
  # case of standard survfit() or survfit(res.cox)

README.md

@@ -58,7 +58,7 @@ The main functions, in the package, are organized in different categories as fol
 
 - **ggforest**(): Draws forest plot for CoxPH model.
 
-- **ggcoxadjustedcurves**(): Plots adjusted survival curves for coxph model.
+- **ggadjustedcurves**(): Plots adjusted survival curves for coxph model.
 
 <br/>