test_assumptions(ToothGrowth, supp, len, dose, alpha = 0.01)
#> [1] "Shapiro Test indicates normal distribution in the data"
#> [1] "Variance Test indicates equal variances in the data"
#> Assumption Decision
#> [1,] "Shapiro Normality" "Pass"
#> [2,] "Levene Variance" "Pass"