# Draw some data
X1 <- matrix(rnorm(1000), ncol = 10)
X2 <- matrix(rnorm(1000, mean = 0.5), ncol = 10)
# Perform Deb and Sen test
if(requireNamespace("randtoolbox", quietly = TRUE) &
requireNamespace("clue", quietly = TRUE)) {
DS(X1, X2, n.perm = 100)
}
Run the code above in your browser using DataLab