#Example 1 (independence)
n <- 100
x <- runif(n,0,1)
y <- runif(n,0,1)
sample <- data.frame(x,y)
qad(sample)
###
#Example 2 (mutual complete dependence)
n <- 500
x <- runif(n,0,1)
y <- x^2
sample <- data.frame(x,y)
qad(sample)
#Example 3 (complete dependence)
n <- 1000
x <- runif(n,-10,10)
y <- sin(x)
sample <- data.frame(x,y)
qad(sample)
#Example 4 (Asymmetry)
n <- 100
x <- runif(n,0,1)
y <- (2*x) %% 1
qad(x, y)
Run the code above in your browser using DataLab