library(rtables)
lyt <- list()
lyt <- add_expr(lyt, substitute(basic_table()))
lyt <- add_expr(
lyt, substitute(split_cols_by(var = arm), env = list(armcd = "ARMCD"))
)
lyt <- add_expr(
lyt,
substitute(
test_proportion_diff(
vars = "rsp", method = "cmh", variables = list(strata = "strat")
)
)
)
lyt <- add_expr(lyt, quote(build_table(df = dta)))
pipe_expr(lyt)
Run the code above in your browser using DataLab