R/sumsurv_df.R

In uebvhir/anaStatsUEB: Statistical analysis function, Statistics and Bioinformatics Unit (UEB, VHIR)

#' A sumsurv_df Function
#'
#' data frame of summary.survfit object
#' @param sumsurv summary.survfit object
#' @keywords summary survfit survival
#' @export sumsurv_df
#' @examples



sumsurv_df <- function(sumsurv){
  colsel <- c("strata", "time","n.risk","n.event", "surv", "std.err", "lower","upper" )
  cols <- lapply(colsel , function(x) sumsurv[x])
  tbl <- do.call(data.frame, cols)
  return(tbl)
}