Summarize median survival time and CIs, percentiles of survival times, survival time range of censored/event patients.
surv_time(
lyt,
vars,
is_event,
control = control_surv_time(),
ref_fn_censor = TRUE,
na_str = default_na_str(),
nested = TRUE,
...,
var_labels = "Time to Event",
show_labels = "visible",
table_names = vars,
.stats = c("median", "median_ci", "quantiles", "range"),
.formats = NULL,
.labels = NULL,
.indent_mods = c(median_ci = 1L)
)s_surv_time(df, .var, is_event, control = control_surv_time())
a_surv_time(
df,
labelstr = "",
.var = NULL,
.df_row = NULL,
is_event,
control = control_surv_time(),
ref_fn_censor = TRUE,
.stats = NULL,
.formats = NULL,
.labels = NULL,
.indent_mods = NULL,
na_str = default_na_str()
)
surv_time()
returns a layout object suitable for passing to further layouting functions,
or to rtables::build_table()
. Adding this function to an rtable
layout will add formatted rows containing
the statistics from s_surv_time()
to the table layout.
s_surv_time()
returns the statistics:
median
: Median survival time.
median_ci
: Confidence interval for median time.
quantiles
: Survival time for two specified quantiles.
range_censor
: Survival time range for censored observations.
range_event
: Survival time range for observations with events.
range
: Survival time range for all observations.
a_surv_time()
returns the corresponding list with formatted rtables::CellValue()
.
(PreDataTableLayouts
)
layout that analyses will be added to.
(character
)
variable names for the primary analysis variable to be iterated over.
(flag
)
TRUE
if event, FALSE
if time to event is censored.
(list
)
parameters for comparison details, specified by using the helper function
control_surv_time()
. Some possible parameter options are:
conf_level
(proportion
)
confidence level of the interval for survival time.
conf_type
(string
)
confidence interval type. Options are "plain" (default), "log", or "log-log",
see more in survival::survfit()
. Note option "none" is not supported.
quantiles
(numeric
)
vector of length two to specify the quantiles of survival time.
(flag
)
whether referential footnotes indicating censored observations should be printed
when the range
statistic is included.
(string
)
string used to replace all NA
or empty values in the output.
(flag
)
whether this layout instruction should be applied within the existing layout structure _if
possible (TRUE
, the default) or as a new top-level element (FALSE
). Ignored if it would nest a split.
underneath analyses, which is not allowed.
additional arguments for the lower level functions.
(character
)
variable labels.
(string
)
label visibility: one of "default", "visible" and "hidden".
(character
)
this can be customized in the case that the same vars
are analyzed multiple
times, to avoid warnings from rtables
.
(character
)
statistics to select for the table. Run get_stats("surv_time")
to see available statistics for this function.
(named character
or list
)
formats for the statistics. See Details in analyze_vars
for more
information on the "auto"
setting.
(named character
)
labels for the statistics (without indent).
(named integer
)
indent modifiers for the labels. Each element of the vector
should be a name-value pair with name corresponding to a statistic specified in .stats
and value the indentation
for that statistic's row label.
(data.frame
)
data set containing all analysis variables.
(string
)
single variable name that is passed by rtables
when requested
by a statistics function.
(string
)
label of the level of the parent split currently being summarized
(must be present as second argument in Content Row Functions). See rtables::summarize_row_groups()
for more information.
(data.frame
)
data frame across all of the columns for the given row split.
surv_time()
: Layout-creating function which can take statistics function arguments
and additional format arguments. This function is a wrapper for rtables::analyze()
.
s_surv_time()
: Statistics function which analyzes survival times.
a_surv_time()
: Formatted analysis function which is used as afun
in surv_time()
.
library(dplyr)
adtte_f <- tern_ex_adtte %>%
filter(PARAMCD == "OS") %>%
mutate(
AVAL = day2month(AVAL),
is_event = CNSR == 0
)
df <- adtte_f %>% filter(ARMCD == "ARM A")
basic_table() %>%
split_cols_by(var = "ARMCD") %>%
add_colcounts() %>%
surv_time(
vars = "AVAL",
var_labels = "Survival Time (Months)",
is_event = "is_event",
control = control_surv_time(conf_level = 0.9, conf_type = "log-log")
) %>%
build_table(df = adtte_f)
a_surv_time(
df,
.df_row = df,
.var = "AVAL",
is_event = "is_event"
)
Run the code above in your browser using DataLab