# Load data
#:::::::::::::::::::::::::::::::::::::::
data("ToothGrowth")
df <- ToothGrowth
# Fligner-Killeen test
#:::::::::::::::::::::::::::::::::::::::::
df %>% fligner_test(len ~ dose)
# Grouped data
df %>%
group_by(supp) %>%
fligner_test(len ~ dose)
Run the code above in your browser using DataLab