```
## Not run:
# ## independent univariate data
# x <- sin(runif(30, 0, 2*pi) * 2)
# y <- sin(runif(30, 0, 2*pi) * 4)
# indep.etest(x, y, R = 99)
#
# ## dependent multivariate data
# Sigma <- matrix(c(1, .1, 0, 0 , 1, 0, 0 ,.1, 1), 3, 3)
# x <- mvrnorm(30, c(0, 0, 0), diag(3))
# y <- mvrnorm(30, c(0, 0, 0), Sigma) * x
# indep.etest(x, y, R = 99)
# ## End(Not run)
```

Run the code above in your browser using DataLab