# NOT RUN {
# Prepare the data
data("ToothGrowth")
df <- ToothGrowth
df$dose <- as.factor(df$dose)
# Compute Levene's Test
df %>% levene_test(len ~ dose)
# Grouped data
df %>%
group_by(supp) %>%
levene_test(len ~ dose)
# }
Run the code above in your browser using DataLab