x <- rnorm (100)
bds.test (x, m = 3)  # i.i.d. example
x <- c (rnorm(50), runif(50))
bds.test (x, m = 3)  # not identically distributed
x <- quadmap (xi = 0.2, a = 4.0, n = 100)
bds.test (x, m = 3)  # not independentRun the code above in your browser using DataLab