attach(Moore)
levene.test(conformity, fcategory)
## Levene's Test for Homogeneity of Variance
## Df F value Pr(>F)
## group 2 0.046 0.9551
## 42
levene.test(conformity, interaction(fcategory, partner.status))
## Levene's Test for Homogeneity of Variance
## Df F value Pr(>F)
## group 5 1.4694 0.2219
## 39
Run the code above in your browser using DataLab