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 independent
Run the code above in your browser using DataLab