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(~ Ratio | Group)
Hodgkin$Ratio <- Hodgkin$CD4 / Hodgkin$CD8
estat(~ Ratio | Group, data = Hodgkin)
qq_plot(~ Ratio | Group, data = Hodgkin)
Run the code above in your browser using DataLab