# Load data
#:::::::::::::::::::::::::::::::::::::::
data("ToothGrowth")
df <- ToothGrowth
df$dose <- as.factor(df$dose)
# Welch one-way ANOVA test (not assuming equal variance)
#:::::::::::::::::::::::::::::::::::::::::
df %>% welch_anova_test(len ~ dose)
# Grouped data
#:::::::::::::::::::::::::::::::::::::::::
df %>%
group_by(supp) %>%
welch_anova_test(len ~ dose)
Run the code above in your browser using DataLab