df <- data.frame(
groups = c(rep("A", 5), rep("B", 6)),
strength = c(rnorm(5, 100, 6), rnorm(6, 105, 7))
)
levene_result <- levene_test(df, strength, groups)
glance(levene_result)
## # A tibble: 1 x 7
## alpha modcv n k f p reject_equal_variance
##
## 1 0.05 FALSE 11 2 0.0191 0.893 FALSE
Run the code above in your browser using DataLab