data(Hodgkin)
require(dplyr, quietly = TRUE)
require(sjlabelled, quietly = TRUE)
Hodgkin <- Hodgkin |>
mutate(
Ratio = CD4 / CD8
) |>
var_labels(
Ratio = "CD4+ / CD8+ T-cells"
)
estat(~ Ratio | Group, data = Hodgkin)
Hodgkin |>
qq_plot(y = Ratio) +
facet_grid(cols = vars(Group))
Run the code above in your browser using DataLab