if (FALSE) { # rlang::is_installed("gtsummary")
library(gtsummary)
trial |>
tbl_summary(include = grade, by = trt) |>
add_p(test = all_categorical() ~ "fisher.simulate.p")
}
if (FALSE) { # rlang::is_installed(c("gtsummary", "srvyr", "survey"))
# \donttest{
iris |>
srvyr::as_survey() |>
tbl_svysummary(
include = Petal.Length,
by = Species
) |>
add_p(test = all_continuous() ~ svyttest_oneway)
# }
}
Run the code above in your browser using DataLab