estimate_multinomial_rsp | R Documentation |
The analyze & summarize function estimate_multinomial_response()
creates a layout element to estimate the
proportion and proportion confidence interval for each level of a factor variable. The primary analysis variable,
var
, should be a factor variable, the values of which will be used as labels within the output table.
estimate_multinomial_response(
lyt,
var,
na_str = default_na_str(),
nested = TRUE,
...,
show_labels = "hidden",
table_names = var,
.stats = "prop_ci",
.formats = NULL,
.labels = NULL,
.indent_mods = NULL
)
s_length_proportion(x, .N_col, ...)
a_length_proportion(x, .N_col, ...)
lyt |
( |
var |
( |
na_str |
( |
nested |
( |
... |
additional arguments for the lower level functions. |
show_labels |
( |
table_names |
( |
.stats |
( |
.formats |
(named |
.labels |
(named |
.indent_mods |
(named |
x |
( |
.N_col |
( |
estimate_multinomial_response()
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_length_proportion()
to the table layout.
s_length_proportion()
returns statistics from s_proportion()
.
a_length_proportion()
returns the corresponding list with formatted rtables::CellValue()
.
estimate_multinomial_response()
: Layout-creating function which can take statistics function arguments
and additional format arguments. This function is a wrapper for rtables::analyze()
and
rtables::summarize_row_groups()
.
s_length_proportion()
: Statistics function which feeds the length of x
as number
of successes, and .N_col
as total number of successes and failures into s_proportion()
.
a_length_proportion()
: Formatted analysis function which is used as afun
in estimate_multinomial_response()
.
Relevant description function d_onco_rsp_label()
.
library(dplyr)
# Use of the layout creating function.
dta_test <- data.frame(
USUBJID = paste0("S", 1:12),
ARM = factor(rep(LETTERS[1:3], each = 4)),
AVAL = c(A = c(1, 1, 1, 1), B = c(0, 0, 1, 1), C = c(0, 0, 0, 0))
) %>% mutate(
AVALC = factor(AVAL,
levels = c(0, 1),
labels = c("Complete Response (CR)", "Partial Response (PR)")
)
)
lyt <- basic_table() %>%
split_cols_by("ARM") %>%
estimate_multinomial_response(var = "AVALC")
tbl <- build_table(lyt, dta_test)
tbl
s_length_proportion(rep("CR", 10), .N_col = 100)
s_length_proportion(factor(character(0)), .N_col = 100)
a_length_proportion(rep("CR", 10), .N_col = 100)
a_length_proportion(factor(character(0)), .N_col = 100)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.