# NOT RUN {
# }
# 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)
# }
Run the code above in your browser using DataLab