data(pot)
levene.test(pot[,"obs"], pot[,"type"],
location = "median", correction.method = "zero.correction")
## Bootstrap version of the test. The calculation may take up a few minutes
## depending on the number of bootstrap sampling.
levene.test(pot[,"obs"], pot[,"type"],
location = "median", correction.method = "zero.correction",
bootstrap = TRUE, num.bootstrap = 500)
Run the code above in your browser using DataLab