# NOT RUN {
set.seed(0)
library(MASS)
n <- 30
p <- 2
rho <- 0.9
delta <- 0.9
mu <- rep(0, times = p)
Sigma <- (1 - rho) * diag(p) + rho * matrix(1, p, p)
mu0 <- rep(0.3271,times = p)
B <- 200
X <- mvrnorm(n, mu, Sigma)
T2RobustBoot(X=X, mu0=mu0, B=B)
# }
Run the code above in your browser using DataLab