# NOT RUN {
dat <- data.frame(y = c(2, 3, 4, 5, 5, 7, 8, 4, 5, 2, 4, 3),
group = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3))
# Levene's test based on the median with 95% confidence interval
test.levene(y ~ group, data = dat)
# Levene's test based on the arithmetic mean with 95% confidence interval
test.levene(y ~ group, data = dat, method = "mean")
# Levene's test based on the median with 99% confidence interval
test.levene(y ~ group, data = dat, conf.level = 0.99)
# }
Run the code above in your browser using DataLab