params.survfit: parameter estimates from survfit
In dewittpe/qwraps: Quick Wraps

Description Usage Arguments Details Value Note Author(s) References See Also Examples

function does. ~~

1 2	params.survfit(fit, alpha = getOption("qwraps.alpha", 0.05), ...)

`fit`
`alpha`
`...`

above ~~

Peter DeWitt

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (fit, alpha = getOption("qwraps.alpha", 0.05), ...)
{
   if (1 - alpha != fit$conf.int) {
       warning("Refitting survfit with requested confidence level")
       fit <- update(fit, conf.int = 1 - alpha)
   }
   rtn <- summary(fit)$table[, c(5:7, 7)]
   rtn[, 4] <- NA
   show.pval <- FALSE
   return(params_frmtr(rtn, ...))
 }