# NOT RUN {
re.m = resample.multivariance(matrix(rnorm(30*2),nrow = 30),
type= "multi",times = 300)$resampled
curve(ecdf(re.m)(x), xlim = c(0,4),main = "empirical distribution of the test statistic under H_0")
# }
Run the code above in your browser using DataLab