# \donttest{
Y <- matrix(rnorm(50*5), ncol=5)
(MMests <- MMest_loccov(Y))
(Sests <- Sest_loccov(Y, bdp = 0.25))
Y1 <- matrix(rnorm(50*5), ncol=5)
Y2 <- matrix(rnorm(50*5), ncol=5)
Ybig <- rbind(Y1,Y2)
grp <- c(rep(1,50),rep(2,50))
(MMests <- MMest_twosample(Ybig, grp))
# }
Run the code above in your browser using DataLab