data(sparrows)
res.Levene2s.mv <- Levenetests2s.mv(sparrows, Survivorship, "S",
alternative = "less", var.equal = TRUE,
P.adjust = "bonferroni", unit = "mm")
print(res.Levene2s.mv)
Run the code above in your browser using DataLab