# NOT RUN {
data(Hodgkin)
require(dplyr)
require(sjlabelled)
Hodgkin <- Hodgkin %>%
mutate(
Ratio = CD4/CD8
) %>%
var_labels(
Ratio = "CD4+ / CD8+ T-cells"
)
estat(~ Ratio|Group, data = Hodgkin)
Hodgkin %>%
qq_plot(~ Ratio|Group) %>%
axis_labs()
Hodgkin$Ratio <- Hodgkin$CD4/Hodgkin$CD8
estat(~ Ratio|Group, data = Hodgkin)
qq_plot(~ Ratio|Group, data = Hodgkin) %>%
axis_labs()
# }
Run the code above in your browser using DataLab