library(dplyr)
carbon.fabric.2 %>%
filter(test == "FC") %>%
levene_test(strength, condition)
##
## Call:
## levene_test(data = ., x = strength, groups = condition)
##
## n = 91 k = 5
## F = 3.883818 p-value = 0.00600518
## Conclusion: Samples have unequal variance ( alpha = 0.05 )
Run the code above in your browser using DataLab