# NOT RUN {
x <- runif(8)
y <- runif(8)
# Distance matrices
distX = as.matrix(dist(x, upper = TRUE, diag = TRUE))
distY = as.matrix(dist(y, upper = TRUE, diag = TRUE))
dCorTest(Dx = distX, Dy = distY, nperm = 1000)
# }
Run the code above in your browser using DataLab